(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    248710,       5397]
NotebookOptionsPosition[    229952,       5001]
NotebookOutlinePosition[    230626,       5027]
CellTagsIndexPosition[    230545,       5022]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["0.7", "HistoryData",
  CellTags->"New",ExpressionUUID->"47059340-211c-4e94-96e2-b9514c9641a5"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"1d0b8f6c-884f-4015-97f0-71b84ef811c5"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"faeaa30a-8e11-4ebd-a6f4-a8d248986eb8"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"d4bff303-4985-44ae-adb1-b973170dab07"]
}], "History",
 CellID->1247902091,ExpressionUUID->"c241e7bd-c40c-4140-b24e-753bf8212f8e"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"b28e4395-c631-4643-b307-ba5d7636bc93"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"5ee880ff-2b92-4f6f-b83f-561dd842cc99"],

Cell["MaXrd", "Categorization",
 CellChangeTimes->{3.743836640777318*^9},
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"f587f670-d10a-474e-8d21-e0503d4379bb"],

Cell["MaXrd`", "Categorization",
 CellChangeTimes->{3.743836641159854*^9},
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"aa2df1ac-3860-4133-9bcf-fc6793ff0369"],

Cell["MaXrd/ref/GetAtomicScatteringFactors", "Categorization",
 CellChangeTimes->{3.7190635210127707`*^9, 3.7438366414636173`*^9},
 CellLabel->"URI",ExpressionUUID->"cc53b83c-8f6c-4af2-876e-ab539c659edc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"8c6f245e-eede-4e48-8f71-8638b3b761d5"],

Cell["XXXX", "Keywords",
 CellID->426091251,ExpressionUUID->"e797b218-3584-46e4-b864-2c6ee48c1735"]
}, Closed]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"a294325e-96fd-42c5-8685-f97662c28359"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"89a502e2-a6ff-4256-8980-014ff9cc0022"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"bad2337b-e925-47c3-86d8-a4eefaef28d3"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"a88523cf-85de-43d5-ab2f-428b444ac4d7"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"0c9f6117-161f-48f7-8b7f-5e3964f99411"]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"5e6c0cc0-1163-473b-8f9f-a4c0d9c019c2"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175,ExpressionUUID->"e1eacb83-d28d-4c24-9b36-3d5912080b77"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"f59c76f5-fa1d-4d2c-9555-29cba96473bb"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405,ExpressionUUID->"0d06f4e8-d9e4-48f3-9c13-bee8884fc0a1"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269,ExpressionUUID->"88cd1a42-bc50-4739-b817-ab7397565315"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205,ExpressionUUID->"6572d10a-f9e4-4a9c-a407-2dd5395696aa"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745,ExpressionUUID->"9862b6fe-2dc0-424e-a3c0-ffdb7aa4c018"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810,ExpressionUUID->"e18fe954-8f13-4bd6-83d9-9961c0c4a394"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350,ExpressionUUID->"30b29f63-638c-42c3-a78e-05f6025d8606"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"62bd55c6-b2ac-46f2-9078-cf3f256019e1"]
}, Closed]],

Cell[CellGroupData[{

Cell["GetAtomicScatteringFactors", "ObjectName",
 CellChangeTimes->{{3.718624670265286*^9, 3.7186246732625027`*^9}, {
  3.7190635130695744`*^9, 3.719063517186706*^9}},
 CellID->1224892054,ExpressionUUID->"4169ecd4-65be-425a-b071-3fdcbe7b7d4c"],

Cell[TextData[{
 Cell["      ", "ModInfo",ExpressionUUID->
  "8fa30d0a-6455-46d1-807c-6e9e0002d7b4"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetAtomicScatteringFactors",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "0a518666-2f72-44b9-b6f5-7e49d841ef11"],
 "\[LineSeparator]returns an association between the chemical elements in ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "2b5c1925-0e92-4352-a831-8015b2b00b00"],
 " and the atomic form factor ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "0"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "ac9cd283-5faa-4715-849b-b02e24c8cfdd"],
 " based on ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", "\[Theta]", ")"}], "/", "\[Lambda]"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "dcb076c3-f4b5-479c-bfa3-e5d04726d010"],
 " value corresponding to reflection ",
 Cell[BoxData[
  StyleBox["hkl", "TI"]], "InlineFormula",ExpressionUUID->
  "18074191-597a-4ebd-8d32-05f8cf218178"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "bc569515-80fd-4e7d-ae81-e450e9547cf8"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetAtomicScatteringFactors",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"], "[", 
   RowBox[{
    StyleBox["crystal", "TI"], ",", 
    RowBox[{"{", 
     RowBox[{
      StyleBox["h", "TI"], ",", 
      StyleBox["k", "TI"], ",", 
      StyleBox["l", "TI"]}], "}"}], ",", 
    StyleBox["\[Lambda]", "TR"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "2e1bbbb1-cfdb-4407-aac1-ec100c30f77d"],
 "\[LineSeparator]returns an association between the chemical elements in ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "4366832c-beaa-478c-a5d9-e955f298b698"],
 " and the atomic form factor ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "0"], "+", 
    SuperscriptBox["f", "\[Prime]",
     MultilineFunction->None], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["f", "\[Prime]\[Prime]",
      MultilineFunction->None]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"db019d70-3599-4d51-ba1c-4fd81fdea5ed"],
 ", where anomalous corrections are based on wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "9accc65a-04ba-4fa2-b6b2-b33755a1c6e0"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "82bcd104-285d-475f-8255-122e8d4e2e1d"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetAtomicScatteringFactors",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["X", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["X", "TI"], 
       StyleBox["2", "TR"]], ",", 
      StyleBox["\[Ellipsis]", "TR"], ",", 
      SubscriptBox[
       StyleBox["X", "TI"], 
       StyleBox["n", "TI"]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["s", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["s", "TI"], 
       StyleBox["2", "TR"]], ",", 
      StyleBox["\[Ellipsis]", "TR"], ",", 
      SubscriptBox[
       StyleBox["s", "TI"], 
       StyleBox["k", "TI"]]}], "}"}]}], "]"}]], "InlineFormula",
  ExpressionUUID->"00c43cda-11ad-4f60-9aaa-9473ec0cde12"],
 "\[LineSeparator]returns an association between the ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "63287e95-4cd8-4f5a-9abf-6bbeba63589d"],
 " elements ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["X", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "a49d496f-a3f2-4f2d-9792-d8efdbd36f46"],
 " and the atomic form factor ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "0"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "4255e8a8-c6e5-4c87-ab80-03daf0c59295"],
 ", based on the ",
 Cell[BoxData[
  StyleBox["k", "TI"]], "InlineFormula",ExpressionUUID->
  "2a110944-f9d2-4105-af43-3b935996af13"],
 " values of ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["s", "TI"], 
    StyleBox["j", "TI"]], "=", 
   SubscriptBox[
    RowBox[{"[", 
     RowBox[{
      StyleBox["sin", "TI"], 
      StyleBox["\[NegativeThinSpace]", "TI"], 
      RowBox[{
       RowBox[{"(", 
        StyleBox["\[Theta]", "TR"], ")"}], "\[NegativeMediumSpace]", "/", 
       "\[NegativeThinSpace]", "\[Lambda]"}]}], "]"}], 
    StyleBox["j", "TI"]]}]], "InlineFormula",ExpressionUUID->
  "457ec6d6-fbbd-4b8e-974a-30154d5aaedf"],
 ".\n",
 Cell["      ", "ModInfo",ExpressionUUID->
  "0d776f26-e29e-4590-ad4f-e634c30ad23d"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["GetAtomicScatteringFactors",
    BaseStyle->"Link",
    ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["X", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["X", "TI"], 
       StyleBox["2", "TR"]], ",", 
      StyleBox["\[Ellipsis]", "TR"], ",", 
      SubscriptBox[
       StyleBox["X", "TI"], 
       StyleBox["n", "TI"]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["s", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["s", "TI"], 
       StyleBox["2", "TR"]], ",", 
      StyleBox["\[Ellipsis]", "TR"], ",", 
      SubscriptBox[
       StyleBox["s", "TI"], 
       StyleBox["k", "TI"]]}], "}"}], ",", 
    StyleBox["\[Lambda]", "TR"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "79374bae-7f4a-4d58-b2a1-04dea80f0c31"],
 "\[LineSeparator]returns an association between the ",
 Cell[BoxData[
  StyleBox["n", "TI"]], "InlineFormula",ExpressionUUID->
  "9dd25e4a-a1de-44e4-9077-38e125ee5b19"],
 " elements ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["X", "TI"], 
   StyleBox["i", "TI"]]], "InlineFormula",ExpressionUUID->
  "dcbfd51e-9273-4636-aea5-3c6af1e1500f"],
 " and the atomic form factor ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "0"], "+", 
    SuperscriptBox["f", "\[Prime]",
     MultilineFunction->None], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["f", "\[Prime]\[Prime]",
      MultilineFunction->None]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"ec4dddfb-af11-4150-b1a6-1912abdddb4b"],
 ",  based on the ",
 Cell[BoxData[
  StyleBox["k", "TI"]], "InlineFormula",ExpressionUUID->
  "ec6bb849-82c3-4d26-8043-f0dc83af206b"],
 " values of ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["s", "TI"], 
    StyleBox["j", "TI"]], "=", 
   SubscriptBox[
    RowBox[{"[", 
     RowBox[{
      StyleBox["sin", "TI"], 
      StyleBox["\[NegativeThinSpace]", "TI"], 
      RowBox[{
       RowBox[{"(", 
        StyleBox["\[Theta]", "TR"], ")"}], "\[NegativeMediumSpace]", "/", 
       "\[NegativeThinSpace]", "\[Lambda]"}]}], "]"}], 
    StyleBox["j", "TI"]]}]], "InlineFormula",ExpressionUUID->
  "c1ffb9ca-9810-4d74-8735-51783312082e"],
 " and where anomalous corrections are based on wavelength ",
 Cell[BoxData[
  StyleBox["\[Lambda]", "TR"]], "InlineFormula",ExpressionUUID->
  "c81b9173-2c24-482c-ad71-730af9bc6820"],
 "."
}], "Usage",
 CellChangeTimes->{{3.684217185894878*^9, 3.684217212051302*^9}, {
  3.684490900506467*^9, 3.684490983069316*^9}, {3.6844914390222588`*^9, 
  3.684491540028751*^9}, {3.718624305901288*^9, 3.718624424258377*^9}, {
  3.719063532987061*^9, 3.7190635450783777`*^9}, {3.730489978382347*^9, 
  3.7304899966963997`*^9}, {3.730490098717695*^9, 3.73049021877173*^9}, {
  3.735279125951976*^9, 3.7352791259523153`*^9}, {3.7379684454590387`*^9, 
  3.737968445590144*^9}, {3.739126925891553*^9, 3.739127036045385*^9}, {
  3.7391270884396772`*^9, 3.7391272070206833`*^9}, {3.739127252517144*^9, 
  3.739127640140153*^9}, {3.739127690573838*^9, 3.739127691177897*^9}, {
  3.742834909837469*^9, 3.742834986660429*^9}, {3.742835101765027*^9, 
  3.742835198976037*^9}, {3.742835263877281*^9, 3.7428353112138367`*^9}, {
  3.7438658559295797`*^9, 3.743865856132213*^9}, {3.74461039580377*^9, 
  3.744610413032506*^9}},
 CellID->982511436,ExpressionUUID->"bbb04a37-720c-4f60-b16d-db032e0c4d1f"],

Cell[TextData[{
 "Alternative names include ",
 StyleBox["atomic form factor",
  FontSlant->"Italic"],
 " or simply s",
 StyleBox["cattering factor",
  FontSlant->"Italic"],
 "."
}], "Notes",
 CellChangeTimes->{{3.717952037986939*^9, 3.7179520463348827`*^9}, {
  3.719063619800716*^9, 3.719063651849275*^9}},
 CellID->1903591426,ExpressionUUID->"89339f0c-cdd1-4751-8fec-5693de71df95"],

Cell[TextData[{
 "The function calculates ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "0"], "+", 
    SuperscriptBox["f", "\[Prime]",
     MultilineFunction->None], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["f", "\[Prime]\[Prime]",
      MultilineFunction->None]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"40194e80-b4a0-4148-97f3-552c66888aed"],
 ", but the corrections can be switched off or returned separately (se \
options below)."
}], "Notes",
 CellChangeTimes->{{3.721724962269224*^9, 3.7217251707700663`*^9}, 
   3.727723320600116*^9, {3.7277233599105787`*^9, 3.727723433599247*^9}, {
   3.732855652653603*^9, 3.732855656143857*^9}, {3.732855714470663*^9, 
   3.7328557151264353`*^9}, {3.737864605761753*^9, 3.737864620933867*^9}, {
   3.737864677061658*^9, 3.737864750941337*^9}, {3.739127987557349*^9, 
   3.7391279932980623`*^9}, {3.744610378918844*^9, 3.744610382369957*^9}},
 CellID->2017353377,ExpressionUUID->"37964b99-1bb9-47fa-8ced-f1abded6cb9b"],

Cell[TextData[{
 "Note that when using a ",
 Cell[BoxData[
  StyleBox["crystal", "TI"]], "InlineFormula",ExpressionUUID->
  "4ae58a42-704e-4abb-91cf-9710dda3e183"],
 " label as input, the argument should be a single string. When entering \
chemical elements, the string symbols should be a list. All ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"sin", "(", "\[Theta]", ")"}], "/", "\[Lambda]"}], 
   TraditionalForm]], "InlineMath",ExpressionUUID->
  "2c836bd9-46db-456c-a554-22ed24c74cdd"],
 " values must also be contained in a list."
}], "Notes",
 CellChangeTimes->{{3.737865159065249*^9, 3.737865175563704*^9}, {
  3.73912771802439*^9, 3.739127835176486*^9}},
 CellID->340270200,ExpressionUUID->"79fffc1e-be17-44c7-878c-b665e73f2a32"],

Cell[TextData[{
 "The function is essentially ",
 Cell[BoxData[
  ButtonBox["Listable",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Listable"]], "InlineFormula",ExpressionUUID->
  "e10627a8-e7e2-4cbe-a8a0-c319722fa29e"],
 " with regards to reflections, i.e. one could exchange the syntax ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    StyleBox["h", "TI"], ",", 
    StyleBox["k", "TI"], ",", 
    StyleBox["l", "TI"]}], "}"}]], "InlineFormula",ExpressionUUID->
  "fe2bf92f-fc33-4e63-af7f-c6c56497da97"],
 " with ",
 Cell[BoxData[
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["h", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["k", "TI"], 
       StyleBox["1", "TR"]], ",", 
      SubscriptBox[
       StyleBox["l", "TI"], 
       StyleBox["1", "TR"]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox[
       StyleBox["h", "TI"], 
       StyleBox["2", "TR"]], ",", 
      SubscriptBox[
       StyleBox["k", "TI"], 
       StyleBox["2", "TR"]], ",", 
      SubscriptBox[
       StyleBox["l", "TI"], 
       StyleBox["2", "TR"]]}], "}"}], ",", 
    StyleBox["\[Ellipsis]", "TR"]}], "}"}]], "InlineFormula",ExpressionUUID->
  "cf1c6473-7d83-4a2f-812b-6e042bd4adc1"],
 "."
}], "Notes",
 CellChangeTimes->{{3.739127861467696*^9, 3.739127972010178*^9}},
 CellID->324789424,ExpressionUUID->"83c54740-6dda-4a2a-855a-9f75009e83e8"],

Cell["Dispersion corrections are applied by default. Options:", "Notes",
 CellChangeTimes->{{3.6844909984450083`*^9, 3.684491014436864*^9}, {
  3.7179529742994967`*^9, 3.717952977611166*^9}},
 CellID->1067943069,ExpressionUUID->"cd0d0eff-a3af-434a-a222-5d7dff059e8a"],

Cell[BoxData[GridBox[{
   {Cell["      ", "ModInfo",ExpressionUUID->
     "04fc9312-6a61-441c-95cc-de3b501e1a24"], "\"\<DispersionCorrections\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[TextData[{
     "whether to add corrections ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["f", "\[Prime]",
        MultilineFunction->None], TraditionalForm]], "InlineMath",
      ExpressionUUID->"27b7ff75-ae04-4957-a3ca-66ceaf24b414"],
     " and ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["f", "\[Prime]\[Prime]",
        MultilineFunction->None], TraditionalForm]], "InlineMath",
      ExpressionUUID->"3d9ef9b2-97f0-46d7-b15f-babfa9d3ec47"]
    }], "TableText",ExpressionUUID->"af22cb0b-4998-4547-ba56-bab45a691aae"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "d57bdd32-be56-4133-b4fc-718f152e45fa"], "\"\<f0Source\>\"", 
    "\"\<WaasmaierKirfel\>\"", Cell[TextData[{
     "source for coefficients that calculate  ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["f", "0"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"85dab193-65a6-4e06-933b-a84c547d90d8"]
    }], "TableText",ExpressionUUID->"e59d20f7-868b-4054-b71f-8e24a5d333c8"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "ec33db01-62c6-4f6b-822f-4094f05c8adb"], "\"\<f1f2Source\>\"", 
    "\"\<CromerLiberman\>\"", Cell[TextData[{
     "source for tables that interpolate values for ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["f", "\[Prime]",
        MultilineFunction->None], TraditionalForm]], "InlineMath",
      ExpressionUUID->"f3c3ecd3-f488-4967-ab6a-f3a54991aded"],
     " and ",
     Cell[BoxData[
      FormBox[
       SuperscriptBox["f", "\[Prime]\[Prime]",
        MultilineFunction->None], TraditionalForm]], "InlineMath",
      ExpressionUUID->"792a5818-7e0b-437d-ada3-b63864c35a33"]
    }], "TableText",ExpressionUUID->"9680e7ef-3f52-441a-9987-c4a242a0d6c5"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "2690f190-a123-4701-8df1-5c183c2d3b1e"], "\"\<IgnoreIonCharge\>\"", 
    ButtonBox["True",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/True"], Cell[
    "ignore the charge of ions", "TableText",ExpressionUUID->
     "c9de4f46-b1f5-4780-b02c-9174b818edef"]},
   {Cell["      ", "ModInfo",ExpressionUUID->
     "12a3cd53-0f39-4eec-8e66-4ad9985a7755"], "\"\<SeparateCorrections\>\"", 
    ButtonBox["False",
     BaseStyle->"Link",
     ButtonData->"paclet:ref/False"], Cell[TextData[{
     "whether to separate ",
     Cell[BoxData[
      FormBox[
       SubscriptBox["f", "0"], TraditionalForm]], "InlineMath",
      ExpressionUUID->"fa8007bd-4995-49f9-8f41-9c082b9c4217"],
     " and ",
     Cell[BoxData[
      FormBox[
       RowBox[{
        SuperscriptBox["f", "\[Prime]",
         MultilineFunction->None], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         SuperscriptBox["f", "\[Prime]\[Prime]",
          MultilineFunction->None]}]}], TraditionalForm]], "InlineMath",
      ExpressionUUID->"539d794e-c2e4-466e-9688-0168a024c6bb"]
    }], "TableText",ExpressionUUID->"bac98e8b-65f1-49d5-b39d-869b52abca59"]}
  }]], "3ColumnTableMod",
 TaggingRules->{"Alphabetized" -> True},
 CellChangeTimes->{{3.717952990892991*^9, 3.7179530326521587`*^9}, {
   3.717953116357707*^9, 3.717953130661887*^9}, {3.717953185631155*^9, 
   3.717953202897016*^9}, {3.71795328085645*^9, 3.717953285454742*^9}, {
   3.719063678889255*^9, 3.719063781442657*^9}, 3.719064512622076*^9, 
   3.7190815762824306`*^9, {3.727549752981082*^9, 3.727549767272716*^9}, {
   3.738378387592278*^9, 3.738378437315311*^9}, {3.739128010011753*^9, 
   3.739128122275874*^9}, {3.73926288215504*^9, 3.7392628917836533`*^9}},
 CellID->810661952,ExpressionUUID->"78983e6a-34e7-4fe2-a712-431b9b51cc22"],

Cell[TextData[{
 "Available data sources are stored as ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " ",
 StyleBox["package files",
  FontSlant->"Italic"],
 " (",
 StyleBox[".m", "InlineCode"],
 ") in ",
 Cell[BoxData[
  StyleBox["$MaXrdPath", "MenuName"]],ExpressionUUID->
  "b47d8c55-d95c-4f2f-8a75-e5d3ab8c892c"],
 StyleBox[" \[FilledRightTriangle] ", "MenuNameDelimiter"],
 StyleBox["Core", "MenuName"],
 StyleBox[" \[FilledRightTriangle] ", "MenuNameDelimiter"],
 StyleBox["Data", "MenuName"],
 StyleBox[" \[FilledRightTriangle] ", "MenuNameDelimiter"],
 Cell[BoxData[
  StyleBox["AtomicScatteringFactor", "MenuName"]],ExpressionUUID->
  "6f5b4d4d-93a1-469b-8f8e-d831ac2895fb"],
 ". For available sources, see the tutorial ",
 StyleBox[ButtonBox["Applying crystal data",
  BaseStyle->"Link",
  ButtonData->"paclet:MaXrd/tutorial/ApplyingCrystalData"],
  FontSlant->"Italic"],
 " or the options regarding sources below. Details on the valid ranges can be \
found in the tutorial page."
}], "Notes",
 CellChangeTimes->{{3.72198010210249*^9, 3.721980142496702*^9}, {
   3.7219803246972446`*^9, 3.7219803425739717`*^9}, {3.721980446942459*^9, 
   3.72198048597165*^9}, {3.721980517880733*^9, 3.7219805180419703`*^9}, {
   3.721980794228936*^9, 3.721980830721704*^9}, {3.72198086259788*^9, 
   3.721980964138571*^9}, {3.721980996659381*^9, 3.721980997480279*^9}, 
   3.737968445641508*^9, {3.742838100771411*^9, 3.742838266292523*^9}, 
   3.743865417605661*^9, {3.743865856236834*^9, 3.7438658562375793`*^9}, {
   3.752832292743175*^9, 3.752832292743689*^9}},
 CellID->740329325,ExpressionUUID->"bc3e2fc1-e150-4071-8479-183665642444"],

Cell[TextData[{
 "When calling ",
 Cell[BoxData[
  ButtonBox["GetAtomicScatteringFactors",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/GetAtomicScatteringFactors"]], 
  "InlineFormula",ExpressionUUID->"b402c2a2-9ade-4477-b32b-e7e2cef8c590"],
 ", the function will automatically create associations with the global \
symbols ",
 Cell[BoxData[
 "MaXrd`Private`$f0"], "InlineFormula",ExpressionUUID->
  "0fe621c3-356f-4c11-b151-a85f66a57c61"],
 " and ",
 Cell[BoxData[
 "MaXrd`Private`$f1f2"], "InlineFormula",ExpressionUUID->
  "6a49cd8b-263c-4a5c-b223-0535dcb24f5e"],
 " that store tabular data for calculating ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "0"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "41fcecc3-407f-4873-a0a0-4ea7fb33be35"],
 " and ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["f", "\[Prime]",
     MultilineFunction->None], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["f", "\[Prime]\[Prime]",
      MultilineFunction->None]}]}], TraditionalForm]], "InlineMath",
  ExpressionUUID->"9ce1e4e2-1558-4272-b7cc-7cc14f1fb437"],
 ", respectively. When the function is called again, it searches these \
associations for previously imported data."
}], "Notes",
 CellChangeTimes->{{3.722689838031561*^9, 3.722689918555142*^9}, {
  3.722689951145547*^9, 3.7226903108685017`*^9}, {3.737968445691558*^9, 
  3.737968445691659*^9}, {3.739263186116817*^9, 3.739263189263966*^9}, {
  3.742838277758649*^9, 3.742838289776593*^9}, {3.7438366472046747`*^9, 
  3.7438366507326717`*^9}, {3.743865856340405*^9, 3.743865856340638*^9}},
 CellID->364661957,ExpressionUUID->"0c20d858-fabe-409d-8563-97b5835d83e0"],

Cell[TextData[{
 "Entries with ",
 StyleBox["'D'", "InlineCode"],
 " as chemical element (deuterium) will be replaced with hydrogen. The \
chemical formula will still contain deuterium."
}], "Notes",
 CellChangeTimes->{{3.739262926087722*^9, 3.739262957360517*^9}, {
  3.739262992194083*^9, 3.7392630025191383`*^9}, {3.752832302768867*^9, 
  3.7528323035517693`*^9}},
 CellID->1058480247,ExpressionUUID->"8a5990bb-009b-49ba-8cab-e467b6000f80"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057,ExpressionUUID->"26f6ae8a-d32c-438c-9fb0-d09c923cea2e"],

Cell[TextData[ButtonBox["References",
 BaseStyle->"Link",
 ButtonData->"paclet:MaXrd/tutorial/References"]], "Tutorials",
 CellChangeTimes->{{3.732863944323564*^9, 3.7328639501109343`*^9}, {
  3.732863991642273*^9, 3.73286399171133*^9}},
 CellID->341631938,ExpressionUUID->"490eaabe-5a79-4d37-b136-36c0cd778105"],

Cell[TextData[ButtonBox["Applying crystal data",
 BaseStyle->"Link",
 ButtonData->"paclet:MaXrd/tutorial/ApplyingCrystalData"]], "Tutorials",
 CellChangeTimes->{{3.732863944323564*^9, 3.7328639501109343`*^9}, {
  3.732863991642273*^9, 3.73286399171133*^9}, {3.7428379823784246`*^9, 
  3.742837982431191*^9}},
 CellID->212354435,ExpressionUUID->"0ac66758-a842-444d-879a-af98954e058f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"8c90e41e-cc47-4ec5-9e52-82505af920af"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"850b6ed0-3eba-44a1-95c2-0f104525121b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"c08ccec0-349e-44a8-8cee-8f5f363bd27b"],

Cell[TextData[{
 "[1] ",
 ButtonBox["Waasmaier, D. & Kirfel, A. (1995). Acta Crystl. A51, 416-431.",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://doi.org/10.1107/S0108767394013292"], None}]
}], "RelatedLinks",
 CellChangeTimes->{{3.7173089948770847`*^9, 3.717309001960579*^9}, 
   3.719081290236041*^9, 3.71908136404074*^9, {3.719081417362235*^9, 
   3.7190814327987547`*^9}},
 CellID->1038487239,ExpressionUUID->"5a1b7ad9-16cb-4ede-8237-4ea7a0a53af5"],

Cell[TextData[{
 "[2] ",
 ButtonBox["Cromer, D. T. & Liberman, D. A. (1981). Acta Cryst. A37, 267-268.",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://doi.org/10.1107/S0567739481000600"], None}]
}], "RelatedLinks",
 CellChangeTimes->{{3.7173089948770847`*^9, 3.717309001960579*^9}, {
  3.7190812455555353`*^9, 3.719081310864847*^9}, {3.719081356818556*^9, 
  3.719081377086507*^9}},
 CellID->1569871728,ExpressionUUID->"2ce3807b-06f3-4f96-8000-509627c2581c"],

Cell[TextData[{
 "[3] ",
 ButtonBox["E. Prince, Ed., Mathematical, Physical and Chemical Tables, 3rd \
ed., ser. International Tables for Crystallography. Kluwer Academic \
Publishers, 2004, vol. C, pp. 578\[Dash]580",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://dx.doi.org/10.1107/97809553602060000103"], None}]
}], "RelatedLinks",
 CellChangeTimes->{{3.717309006558794*^9, 3.717309011855083*^9}, 
   3.719081204852705*^9, 3.7190813035956593`*^9},
 CellID->992471493,ExpressionUUID->"2dd2a000-39e1-4a12-9d54-3275f10dc72a"],

Cell[TextData[{
 "[4] ",
 ButtonBox["ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://ftp.esrf.eu/scisoft/xop2.3/DabaxFiles/"], None}]
}], "RelatedLinks",
 CellChangeTimes->{{3.7173089948770847`*^9, 3.717309001960579*^9}, 
   3.719081290236041*^9, 3.71908136404074*^9, {3.719081417362235*^9, 
   3.7190814327987547`*^9}, 3.722604853832197*^9, {3.722604886942864*^9, 
   3.7226049124307547`*^9}},
 CellID->1725121766,ExpressionUUID->"20e7aaf6-4122-4357-900b-669566c09a6d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"ef3ca175-34a2-4cac-9d25-3e3a0ac1d294"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["StructureFactor",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/StructureFactor"]], "InlineFormula",
  ExpressionUUID->"d0efc8bb-6de8-4d27-adaf-441ba550003d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["AttenuationCoefficient",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/AttenuationCoefficient"]], "InlineFormula",
  ExpressionUUID->"daaed7cf-f006-4de4-b25a-362186bc2354"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["ImportCrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/ImportCrystalData"]], "InlineFormula",
  ExpressionUUID->"12890cc9-61b4-41f3-9174-96356190e9f9"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$CrystalData",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$CrystalData"]], "InlineFormula",
  ExpressionUUID->"95933dd3-0400-48d0-9a45-e0f25fc8386e"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["$PeriodicTable",
   BaseStyle->"Link",
   ButtonData->"paclet:MaXrd/ref/$PeriodicTable"]], "InlineFormula",
  ExpressionUUID->"c00f82ce-1615-4358-bf0b-7996864bef4b"]
}], "SeeAlso",
 CellChangeTimes->{{3.684480360881275*^9, 3.684480402494966*^9}, {
   3.71730877339297*^9, 3.717308777745512*^9}, {3.717951649209042*^9, 
   3.717951649209157*^9}, 3.7190835695604277`*^9, {3.727550755296072*^9, 
   3.727550761718808*^9}, {3.7275517048837214`*^9, 3.7275517135854263`*^9}},
 CellID->139355270,ExpressionUUID->"674e12a3-2aa2-4e89-98df-4d659f1c92b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"61d82d86-3bb6-4bfd-96be-6a1b1b83a3d1"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"7967df3e-bee2-43e8-ba24-1c46080e208a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"0ee15133-fd64-4d26-8a01-8f710ce84e32"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{"\"\<Silicon\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5", ",", "3"}], "}"}], ",", "1.541"}], "]"}]], "Input",\

 CellChangeTimes->{{3.7391565750494537`*^9, 3.7391565770083923`*^9}, 
   3.7438658564386797`*^9},
 CellLabel->"In[1]:=",
 CellID->857180594,ExpressionUUID->"a65693d2-e644-44d5-8151-80ab25294b31"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{"\<\"Si\"\>", "\[Rule]", 
   RowBox[{"4.669484904018337`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.3303403705910288`", " ", "\[ImaginaryI]"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{3.739156579104343*^9, 3.739156617554565*^9},
 CellLabel->"Out[1]=",
 CellID->1565544083,ExpressionUUID->"aa0abf89-9beb-432f-9271-7bd77f91e215"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{"\"\<ManganeseSilicon\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", "0.709317"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.739156590353208*^9, 3.739156592552369*^9}, 
   3.7438658565344057`*^9},
 CellLabel->"In[2]:=",
 CellID->1408035823,ExpressionUUID->"b3235671-6069-4864-a80f-9633841286fa"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Mn\"\>", "\[Rule]", 
    RowBox[{"18.7027632128084`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.7283474842408036`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\<\"Si\"\>", "\[Rule]", 
    RowBox[{"9.410936735575305`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.070378685421789`", " ", "\[ImaginaryI]"}]}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.7391565930343733`*^9, 3.739156617700618*^9}},
 CellLabel->"Out[2]=",
 CellID->1129759937,ExpressionUUID->"56b7365e-920d-445d-8822-d7915690d4db"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{"\"\<Corundum\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "2"}], "}"}], ",", "1.3922"}], "]"}]], "Input",\

 CellChangeTimes->{{3.68235515189132*^9, 3.682355178521112*^9}, {
   3.682415430225286*^9, 3.682415435281662*^9}, 3.719063585934661*^9, {
   3.730662462102165*^9, 3.730662467405959*^9}, 3.737968445876092*^9, {
   3.73915660394551*^9, 3.739156605769505*^9}, 3.743865856598275*^9},
 CellLabel->"In[3]:=",
 CellID->669844248,ExpressionUUID->"040e67ce-e97f-45a4-a389-3d972eded8c1"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Al\"\>", "\[Rule]", 
    RowBox[{"11.998126153226078`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.20152036012090008`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\<\"O\"\>", "\[Rule]", 
    RowBox[{"7.575903197628412`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.026040448504068014`", " ", "\[ImaginaryI]"}]}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.682355154003004*^9, 3.6823551788819237`*^9}, 
   3.682355685143243*^9, 3.682415273380316*^9, {3.682415423872109*^9, 
   3.68241543568513*^9}, 3.682420852227051*^9, 3.682428011653946*^9, 
   3.682497230251779*^9, 3.682497277581115*^9, 3.68249736898205*^9, 
   3.682681615477393*^9, 3.68268187211684*^9, 3.683603422578944*^9, 
   3.683970077832768*^9, 3.684126001818974*^9, 3.6841294504639683`*^9, 
   3.684130093823042*^9, 3.684130140456249*^9, 3.684138620841873*^9, 
   3.6842127521953773`*^9, 3.684491033668887*^9, 3.6844912695303307`*^9, 
   3.7150635826419277`*^9, 3.717953310322516*^9, {3.7186245339251947`*^9, 
   3.718624543981667*^9}, 3.7186562641257057`*^9, 3.719081882119442*^9, 
   3.727550082167705*^9, 3.730662468592136*^9, {3.739156606369676*^9, 
   3.739156617850712*^9}},
 CellLabel->"Out[3]=",
 CellID->1972338032,ExpressionUUID->"8e563538-b7e5-4467-be3f-5818dc3f74dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "02afbe34-e38b-469c-8b90-4cac98c11a0b"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->2048314361,ExpressionUUID->"152217ef-5e2b-4ae4-be7e-0f06ce46cfd6"],

Cell["The atomic form factors are easily extracted:", "ExampleText",
 CellChangeTimes->{{3.684491094894766*^9, 3.6844911423919764`*^9}, {
  3.6844912833541193`*^9, 3.684491285479663*^9}},
 CellID->1618279297,ExpressionUUID->"7110b895-73e7-4822-bc0a-74f18b47ecbb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{"GetAtomicScatteringFactors", "[", 
   RowBox[{"\"\<SodiumChloride\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1.541"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.6844911497482967`*^9, 3.684491189589796*^9}, 
   3.68449124163936*^9, 3.719063586934628*^9, {3.730662476709876*^9, 
   3.7306624770696573`*^9}, 3.737968445902302*^9, {3.739156626682115*^9, 
   3.73915662827334*^9}, 3.7438658566668453`*^9},
 CellLabel->"In[4]:=",
 CellID->1184916144,ExpressionUUID->"fc250507-aa8d-4c6c-a9f6-63bd1b9a838d"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Na\"\>", "\[Rule]", 
    RowBox[{"9.109091539912082`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
   RowBox[{"\<\"Cl\"\>", "\[Rule]", 
    RowBox[{"13.841811615565195`", "\[VeryThinSpace]", "+", 
     RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{
  3.684491152971571*^9, 3.684491190390706*^9, {3.684491242144174*^9, 
   3.684491270018407*^9}, 3.715063587020752*^9, 3.7179533164456387`*^9, {
   3.718624535179101*^9, 3.7186245448050947`*^9}, 3.71865626606505*^9, 
   3.71908188402561*^9, 3.7275500849354877`*^9, 3.7306624778737507`*^9, 
   3.739156642133*^9},
 CellLabel->"Out[4]=",
 CellID->1361372055,ExpressionUUID->"52924ed4-b3a8-40c5-b4d0-c08f1b681ced"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "[", "\"\<Na\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.6844911919722958`*^9, 3.684491247792243*^9}},
 CellLabel->"In[5]:=",
 CellID->318823930,ExpressionUUID->"57fa04c0-7451-4b8c-adb3-00badaf0e2be"],

Cell[BoxData[
 RowBox[{"9.109091539912082`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.68449119374527*^9, 3.684491270143415*^9}, 
   3.71506358828409*^9, 3.717953317463633*^9, {3.718624536296061*^9, 
   3.7186245453894243`*^9}, 3.7186562664986067`*^9, 3.7190818849607964`*^9, 
   3.727550085611432*^9, 3.730662479511352*^9, 3.7391566444847603`*^9},
 CellLabel->"Out[5]=",
 CellID->527399425,ExpressionUUID->"9fe8af80-96f3-4127-bbeb-409fd7f172c6"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\t", "ExampleDelimiter",ExpressionUUID->
   "bcd0777f-ca45-485c-9cd0-1b7fae1165e5"],
  $Line = 0; Null]], "ExampleDelimiter",
 CellID->2111897289,ExpressionUUID->"593dacbb-399d-440a-bbe9-d7c0e5ee9b3f"],

Cell["Inputting elements only:", "ExampleText",
 CellChangeTimes->{{3.730663361042355*^9, 3.7306633747205257`*^9}},
 CellID->1048018607,ExpressionUUID->"11272bf1-009a-430c-a1e6-15eceb59e1d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{
   RowBox[{"{", "\"\<Fe\>\"", "}"}], ",", 
   RowBox[{"{", "0.1229", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.727677770439149*^9, 3.727677808129472*^9}, {
   3.72767786811156*^9, 3.727677876084466*^9}, 3.737968445934181*^9, {
   3.739156663553503*^9, 3.739156675089069*^9}, 3.743865856739299*^9},
 CellLabel->"In[1]:=",
 CellID->2060148113,ExpressionUUID->"52275981-2132-4cac-8e0b-3c5103335410"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{"\<\"Fe\"\>", "\[Rule]", "22.827300011291204`"}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.727677772452713*^9, 3.727677808987215*^9}, {
   3.727677862471961*^9, 3.7276778764170513`*^9}, 3.730663343024933*^9, {
   3.73066338276318*^9, 3.7306634034341927`*^9}, 3.739156676767614*^9, 
   3.739156721491317*^9, 3.739156761336265*^9},
 CellLabel->"Out[1]=",
 CellID->952967132,ExpressionUUID->"fb8e9bed-5d00-4ded-9c7d-61aae26657e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{
   RowBox[{"{", "\"\<Fe\>\"", "}"}], ",", 
   RowBox[{"{", "0.1229", "}"}], ",", "1.541"}], "]"}]], "Input",
 CellChangeTimes->{{3.739156707384769*^9, 3.7391567108243437`*^9}, 
   3.743865856817568*^9},
 CellLabel->"In[2]:=",
 CellID->1111737530,ExpressionUUID->"d9659cdd-9ce4-4b0e-86a6-61e0bfdd389b"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{"\<\"Fe\"\>", "\[Rule]", 
   RowBox[{"21.694018651389733`", "\[VeryThinSpace]", "+", 
    RowBox[{"3.1986530111184655`", " ", "\[ImaginaryI]"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.739156711176405*^9, 3.739156721653325*^9}, 
   3.739156761480825*^9},
 CellLabel->"Out[2]=",
 CellID->585548198,ExpressionUUID->"f9283a7a-1c53-4569-ad00-462f78a52632"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GetAtomicScatteringFactors", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<W\>\"", ",", "\"\<Na\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0.00", ",", "0.27", ",", "0.58"}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.727677887926201*^9, 3.727677896437606*^9}, {
   3.730663397618141*^9, 3.730663399992072*^9}, 3.7379684459618273`*^9, {
   3.739156684401808*^9, 3.739156696273477*^9}, {3.7391567496935062`*^9, 
   3.7391567511899977`*^9}, 3.74386585689046*^9},
 CellLabel->"In[3]:=",
 CellID->67297215,ExpressionUUID->"826169ae-ffaf-442d-9001-1bce92986097"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"W\"\>", "\[Rule]", "73.963572`"}], ",", 
        RowBox[{"\<\"Na\"\>", "\[Rule]", "10.993618000000001`"}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"W\"\>", "\[Rule]", "57.60660938388321`"}], ",", 
        RowBox[{"\<\"Na\"\>", "\[Rule]", "7.3277528894292`"}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"W\"\>", "\[Rule]", "39.85759417733942`"}], ",", 
        RowBox[{"\<\"Na\"\>", "\[Rule]", "3.559798962899916`"}]}], 
       "\[RightAssociation]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.730663383291657*^9, 3.730663403855508*^9}, {
  3.7391566978921967`*^9, 3.739156761631345*^9}},
 CellLabel->"Out[3]//TableForm=",
 CellID->1538493232,ExpressionUUID->"0cb98e04-bdd7-461a-9ec1-23f16cbff5b8"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"bb412e21-89f2-4415-84fe-9b504c0126df"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "f4a2b0a5-75a2-4600-b3ed-649e7f4c9a74"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"84489e02-c81f-4a1f-83fd-7cb528ccbd84"],

Cell[TextData[{
 "The functions is effectively ",
 Cell[BoxData[
  ButtonBox["Listable",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Listable"]], "InlineFormula",ExpressionUUID->
  "daddaec1-fba1-4bf2-a854-d6612e444ad0"],
 " with regards to reflections:"
}], "ExampleText",
 CellChangeTimes->{{3.7186246889515543`*^9, 3.718624720310403*^9}},
 CellID->1824505679,ExpressionUUID->"a7e49533-e8c2-4db9-b91f-103115f939e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GetAtomicScatteringFactors", "[", 
   RowBox[{"\"\<OxalicAcid\>\"", ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "5", ",", "3"}], "}"}]}], "}"}], ",", "1.541"}], 
   "]"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.719081800792849*^9, 3.71908183164671*^9}, {
   3.730662495709632*^9, 3.7306624960531807`*^9}, 3.737968446028574*^9, {
   3.7391597148666286`*^9, 3.739159729006412*^9}, 3.743865857013648*^9},
 CellLabel->"In[1]:=",
 CellID->135239774,ExpressionUUID->"2d98287d-5991-48a1-a326-037b44cabf28"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"C\"\>", "\[Rule]", 
         RowBox[{"3.9475051448547624`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.009058059422644371`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"H\"\>", "\[Rule]", "0.6417575564989141`"}], ",", 
        RowBox[{"\<\"O\"\>", "\[Rule]", 
         RowBox[{"6.110201044307227`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.03225317941556486`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"C\"\>", "\[Rule]", 
         RowBox[{"1.2978067053673985`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.009058059422644371`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"H\"\>", "\[Rule]", "0.01842978055787397`"}], ",", 
        RowBox[{"\<\"O\"\>", "\[Rule]", 
         RowBox[{"1.569232152177331`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.03225317941556486`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.719081807639284*^9, 3.7190818346261587`*^9}, {
   3.727550105968361*^9, 3.7275501079252*^9}, 3.730662496341524*^9, {
   3.739159726148191*^9, 3.7391597319157133`*^9}},
 CellLabel->"Out[1]//TableForm=",
 CellID->674247580,ExpressionUUID->"cc12facc-fd31-4995-979d-a88fb9172afe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Atomic scattering coefficients", "ExampleSubsection",ExpressionUUID->
   "c6dd4c0b-de0e-44a0-bf82-bb2510a115c3"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.7190805744779863`*^9, 3.719080580212202*^9}},
 CellID->1477309509,ExpressionUUID->"4831fc48-53ce-4c74-af3c-7350b7d6fd6d"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "0"], TraditionalForm]], "InlineMath",ExpressionUUID->
  "352f829a-7745-474a-b484-a81a15752466"],
 " is by default calculated from coefficients produced by ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"Waasmaier", " ", "and", " ", 
    SuperscriptBox[
     RowBox[{"Kirfel", 
      StyleBox[" ", "ExampleText"]}], 
     RowBox[{"[", "1", "]"}]]}], "ExampleText"]], "InlineFormula",
  ExpressionUUID->"420d5cc2-478b-450d-aff1-ee44d9dbc21b"],
 ". Here we demonstrate how the various coefficients are extracted. The data \
source file:"
}], "ExampleText",
 CellChangeTimes->{{3.719080697184709*^9, 3.719080784061666*^9}, {
   3.719080814703493*^9, 3.719080814703601*^9}, {3.719080887356605*^9, 
   3.7190809251389523`*^9}, 3.719081102223236*^9},
 CellID->1447093601,ExpressionUUID->"eae7d638-b74c-4f28-afe0-7ee5b453c6c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sourceASC", "=", 
   RowBox[{"Import", "@", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
       "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", ",", 
       "\"\<WaasmaierKirfel.m\>\""}], "}"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7190806003092203`*^9, 3.719080664824298*^9}, 
   3.743865417813168*^9},
 CellLabel->"In[1]:=",
 CellID->1075012041,ExpressionUUID->"2b638a01-4be0-4bdc-9bee-ab62f2164066"],

Cell["Examples of data extraction:", "ExampleText",
 CellChangeTimes->{{3.719081092310649*^9, 3.719081097086618*^9}},
 CellID->1967251220,ExpressionUUID->"79cbd605-7270-43ed-ae65-8736ea3eea48"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sourceASC", "[", "\"\<Fe\>\"", "]"}], 
  RowBox[{"(*", " ", "Iron", " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.719080666309309*^9, 3.719080669016251*^9}, {
  3.719081074897154*^9, 3.7190810777513123`*^9}},
 CellLabel->"In[2]:=",
 CellID->1552669442,ExpressionUUID->"23a6558f-2622-43a1-90d6-ca5ca2ffc4eb"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Method\"\>", "\[Rule]", "\<\"RHF\"\>"}], ",", 
   RowBox[{"\<\"a1\"\>", "\[Rule]", "12.311098`"}], ",", 
   RowBox[{"\<\"b1\"\>", "\[Rule]", "5.009415`"}], ",", 
   RowBox[{"\<\"a2\"\>", "\[Rule]", "1.876623`"}], ",", 
   RowBox[{"\<\"b2\"\>", "\[Rule]", "0.014461`"}], ",", 
   RowBox[{"\<\"a3\"\>", "\[Rule]", "3.066177`"}], ",", 
   RowBox[{"\<\"b3\"\>", "\[Rule]", "18.743041`"}], ",", 
   RowBox[{"\<\"a4\"\>", "\[Rule]", "2.070451`"}], ",", 
   RowBox[{"\<\"b4\"\>", "\[Rule]", "82.767874`"}], ",", 
   RowBox[{"\<\"a5\"\>", "\[Rule]", "6.975185`"}], ",", 
   RowBox[{"\<\"b5\"\>", "\[Rule]", "0.346506`"}], ",", 
   RowBox[{"\<\"c\"\>", "\[Rule]", 
    RowBox[{"-", "0.304931`"}]}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{
  3.719080669233822*^9, {3.71908110491463*^9, 3.7190811121541224`*^9}, 
   3.7190819676710033`*^9, 3.7275503637360697`*^9, 3.730662827043969*^9, {
   3.739159773492383*^9, 3.739159777073627*^9}},
 CellLabel->"Out[2]=",
 CellID->1908415208,ExpressionUUID->"4986d86d-c05c-49c6-a58b-85e48b3e2fec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"sourceASC", "[", "\"\<C\>\"", "]"}], 
  RowBox[{"(*", " ", "Carbon", " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.684477433270966*^9, 3.684477436034523*^9}, {
  3.684480307507516*^9, 3.684480311981183*^9}, {3.719081082480435*^9, 
  3.719081110224594*^9}},
 CellLabel->"In[3]:=",
 CellID->1082421637,ExpressionUUID->"25d56fc6-580c-40ab-b624-4386dbf8f4b9"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Method\"\>", "\[Rule]", "\<\"RHF\"\>"}], ",", 
   RowBox[{"\<\"a1\"\>", "\[Rule]", "2.657506`"}], ",", 
   RowBox[{"\<\"b1\"\>", "\[Rule]", "14.780758`"}], ",", 
   RowBox[{"\<\"a2\"\>", "\[Rule]", "1.078079`"}], ",", 
   RowBox[{"\<\"b2\"\>", "\[Rule]", "0.776775`"}], ",", 
   RowBox[{"\<\"a3\"\>", "\[Rule]", "1.490909`"}], ",", 
   RowBox[{"\<\"b3\"\>", "\[Rule]", "42.086843`"}], ",", 
   RowBox[{"\<\"a4\"\>", "\[Rule]", 
    RowBox[{"-", "4.24107`"}]}], ",", 
   RowBox[{"\<\"b4\"\>", "\[Rule]", 
    RowBox[{"-", "0.000294`"}]}], ",", 
   RowBox[{"\<\"a5\"\>", "\[Rule]", "0.713791`"}], ",", 
   RowBox[{"\<\"b5\"\>", "\[Rule]", "0.239535`"}], ",", 
   RowBox[{"\<\"c\"\>", "\[Rule]", "4.297983`"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{
  3.684480312582678*^9, 3.686387567200221*^9, {3.719081105627425*^9, 
   3.719081112744521*^9}, 3.719081968474738*^9, 3.7275503648117*^9, 
   3.7306628288985157`*^9, 3.7391597783274803`*^9},
 CellLabel->"Out[3]=",
 CellID->263585048,ExpressionUUID->"0aca405c-0e3c-4632-bb84-ad140eee4162"]
}, Open  ]],

Cell["An overview:", "ExampleText",
 CellChangeTimes->{{3.71908192894153*^9, 3.719081932284083*^9}},
 CellID->701644542,ExpressionUUID->"1f193a81-2d6b-451e-94b5-405be3c65189"],

Cell[BoxData[
 RowBox[{"sourceASC", "//", "Dataset"}]], "Input",
 CellID->1134817460,ExpressionUUID->"9f8f54fa-1316-4f48-87a2-3b0f7919df36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Anomalous corrections", "ExampleSubsection",ExpressionUUID->
   "661a55e3-a889-4c60-b887-f9f5a0030aa0"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.7190805744779863`*^9, 3.719080580212202*^9}, {
  3.719081123377586*^9, 3.719081126760203*^9}},
 CellID->756126015,ExpressionUUID->"38679cb0-d376-45e4-a8dd-3f64a6a38fcb"],

Cell[TextData[{
 "The correction terms ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["f", "\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath",ExpressionUUID->
  "ad6eec5e-9d1e-43d0-84ce-af8d798e06f1"],
 " and ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["f", "\[Prime]\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath",ExpressionUUID->
  "547de87e-67f3-4aa4-80d1-055fd9a41369"],
 " are by default calculated by interpolating tables produced by ",
 Cell[BoxData[
  StyleBox[
   RowBox[{"Cromer", " ", "and", " ", 
    SuperscriptBox[
     RowBox[{"Liberman", 
      StyleBox[" ", "ExampleText"]}], 
     RowBox[{"[", "2", "]"}]]}], "ExampleText"]], "InlineFormula",
  ExpressionUUID->"b875abf5-f07a-454b-b50f-74552d7c1dba"],
 ". Here we demonstrate how the various coefficients are extracted. The data \
source file:"
}], "ExampleText",
 CellChangeTimes->{{3.719080697184709*^9, 3.719080784061666*^9}, {
   3.719080814703493*^9, 3.719080814703601*^9}, {3.719080887356605*^9, 
   3.7190809251389523`*^9}, 3.719081102223236*^9, {3.719081159128985*^9, 
   3.719081189404669*^9}, {3.719081479389215*^9, 3.7190815013928137`*^9}},
 CellID->1549194806,ExpressionUUID->"d1a12821-0ca9-4f0f-a85a-fca7de50360c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sourceAC", "=", 
   RowBox[{"Import", "@", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
       "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", ",", 
       "\"\<AnomalousCorrections\>\"", ",", "\[IndentingNewLine]", 
       "\"\<CromerLiberman.m\>\""}], "}"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7190806003092203`*^9, 3.719080664824298*^9}, {
   3.719081511783359*^9, 3.719081532981349*^9}, 3.743865417915349*^9},
 CellLabel->"In[1]:=",
 CellID->1225368214,ExpressionUUID->"7b6f0fad-0efe-4f75-9c7e-5b533d236e48"],

Cell["\<\
An overview for the element zinc: We see a piecewise function with three \
ranges.\
\>", "ExampleText",
 CellChangeTimes->{{3.7190819881642027`*^9, 3.719082044665782*^9}},
 CellID->1183617106,ExpressionUUID->"6a3db041-2fa7-4996-b9da-30dbaf089336"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "@", 
  RowBox[{"sourceAC", "[", "\"\<Zn\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.719082011059883*^9, 3.719082018314477*^9}, {
  3.719082053970406*^9, 3.7190820555777283`*^9}},
 CellLabel->"In[2]:=",
 CellID->437259480,ExpressionUUID->"12ee59ed-74a2-45b6-a3b4-83a20018806a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    RowBox[{
     TagBox["InterpolatingFunction",
      "SummaryHead"], "[", 
     DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
      "Ready"}, 
      TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquarePlusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = True), Appearance -> None,
                 Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAA14w48uCrxj9uG5FKSLOhP6QBYzr7
ics/3TnMqbUhsz93LNIgc2jQP+Rezvh7ZL4/3pgOsSXf0j+61i/H6FjEP4ar
NhR5SdU/wpa62SatyD9sL+rWNOjXPzfFFx/jUs0/FHQ5pi1a2j/SzNN2jpbQ
P/opFNWOAN0/JkjShz5a0j8hhtrWkJrfP1VbMasns9M/hVGe8ucD4T+iw2rj
f5TUP5kYlam7VOI/mQMwykER1T8OwNnmLY/jPxh203m5DNU/pDqUjXDD5D/O
LvQVGmjUP9ltFGTnEeY/yf0LPD410z9vgeLA/EnnP6jLiSM4d9E/pE12TUac
6D9xBYhxJKbNP/nsf0Ng6Ok/3t5Kyz7Exj+vbNe/GB7rPzNFlRbASr0/BKX0
awVu7D8sNiXaIdSdP7q9X56Qp+0/eIXpBTt8sb8Qj5AAUPvuP/sHYQuFL8m/
wpkb5m8k8D+ZH3bfXMfWvy3cFQ8HwPA/hYD2PYH74L/o+vJPuGjxP5Eb3Aot
bei/0wn30zgG8j/vO5V9VpPwv04CtoyhoPI//uBlGwMX9r8Z11ddJEjzP5DW
7C9ndf6/FJwgcXbk8z+FVGRqUE4FwPGU2aNJI/Q/HOS8xn4RD8BQP+6V
                    
                    "]], 
                    LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAt/RA5EwE9T8c5LzGfhEPwDrIMv02
NPU/C4Vs66xdCMBGQ8CgWs/1P4nNuSy/vQPAoZowXJh39j9hQIhVhvcAwC3i
x1qlFPc/hfpgURVy/r9JExqOmq73P+GKXwIa3vu/tCBP2alV+D/Yk8wRd6b5
v1Aeq2eI8fg/f1rK9FLy9788+OkNgZr5P4Ztn4A4Yfa/WMJP90g4+j8vAZCg
mxz1vwR2cBX50vo/se9fLC4C9L8ABnRLw3r7PwgHI7Vm7/K/LIaexFwX/D90
prYt1wbyv6jiq1UQwfw/3I/c9wcg8b+0KHQbrGf9P0MXz+Q0T/C/8V5jJBcD
/j/Nxz4QjTPvv31xNUWcq/4/UFgX/+nC7b86dC6p8Ej/P5sLcxLgfuy/h2Di
QS3j/z+JijAOr1Hrv5KUPPlBRQBASSGCSygb6r/5cBvzVJMAQBW7f1bxBum/
iLvr+PTnAEACzf1fuOjnv996GRkJOwFAI1/3Gbjb5r9OstrahIgBQN+vfiiO
6uW/5VeNqI3cAUBOsUijoe7kv5R10xf+KgJAqijNK9IL5L9rAQuT+38CQGlo
PQxuHuO/CgKgKG3TAkCoEe71Pz3iv8F6yF9GIQNALsTuP1h54b+gYeKirHUD
QNOuzWHUtOC/l8CPh3rEA0C5JNSjG+jfv882j8c6FARAVyXGouds3r9hYAmo

                    "]]}, 
                   Annotation[#, 
                    "Charting`Private`Tag$3451#1"]& ]}}, {}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0.1771202819948674, 0}, 
                FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None},
                 DisplayFunction -> Identity, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0.1771202819948674, 
                 2.509877777592583}, {-3.8835425878901457`, 
                 0.3291782831657258}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "0.1771202819948674`", ",", "2.509877777592583`"}], "}"}],
                     "}"}], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}], True -> GridBox[{{
              PaneBox[
               ButtonBox[
                DynamicBox[
                 FEPrivate`FrontEndResource[
                 "FEBitmaps", "SquareMinusIconMedium"]], 
                ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                None, Evaluator -> Automatic, Method -> "Preemptive"], 
               Alignment -> {Center, Center}, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              GraphicsBox[{{{{}, {}, 
                  TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB4QEe/iFib1JlAgAAAB0AAAACAAAA14w48uCrxj9uG5FKSLOhP6QBYzr7
ics/3TnMqbUhsz93LNIgc2jQP+Rezvh7ZL4/3pgOsSXf0j+61i/H6FjEP4ar
NhR5SdU/wpa62SatyD9sL+rWNOjXPzfFFx/jUs0/FHQ5pi1a2j/SzNN2jpbQ
P/opFNWOAN0/JkjShz5a0j8hhtrWkJrfP1VbMasns9M/hVGe8ucD4T+iw2rj
f5TUP5kYlam7VOI/mQMwykER1T8OwNnmLY/jPxh203m5DNU/pDqUjXDD5D/O
LvQVGmjUP9ltFGTnEeY/yf0LPD410z9vgeLA/EnnP6jLiSM4d9E/pE12TUac
6D9xBYhxJKbNP/nsf0Ng6Ok/3t5Kyz7Exj+vbNe/GB7rPzNFlRbASr0/BKX0
awVu7D8sNiXaIdSdP7q9X56Qp+0/eIXpBTt8sb8Qj5AAUPvuP/sHYQuFL8m/
wpkb5m8k8D+ZH3bfXMfWvy3cFQ8HwPA/hYD2PYH74L/o+vJPuGjxP5Eb3Aot
bei/0wn30zgG8j/vO5V9VpPwv04CtoyhoPI//uBlGwMX9r8Z11ddJEjzP5DW
7C9ndf6/FJwgcXbk8z+FVGRqUE4FwPGU2aNJI/Q/HOS8xn4RD8BQP+6V
                    
                    "]], 
                    LineBox[CompressedData["
1:eJwBEQLu/SFib1JlAgAAACAAAAACAAAAt/RA5EwE9T8c5LzGfhEPwDrIMv02
NPU/C4Vs66xdCMBGQ8CgWs/1P4nNuSy/vQPAoZowXJh39j9hQIhVhvcAwC3i
x1qlFPc/hfpgURVy/r9JExqOmq73P+GKXwIa3vu/tCBP2alV+D/Yk8wRd6b5
v1Aeq2eI8fg/f1rK9FLy9788+OkNgZr5P4Ztn4A4Yfa/WMJP90g4+j8vAZCg
mxz1vwR2cBX50vo/se9fLC4C9L8ABnRLw3r7PwgHI7Vm7/K/LIaexFwX/D90
prYt1wbyv6jiq1UQwfw/3I/c9wcg8b+0KHQbrGf9P0MXz+Q0T/C/8V5jJBcD
/j/Nxz4QjTPvv31xNUWcq/4/UFgX/+nC7b86dC6p8Ej/P5sLcxLgfuy/h2Di
QS3j/z+JijAOr1Hrv5KUPPlBRQBASSGCSygb6r/5cBvzVJMAQBW7f1bxBum/
iLvr+PTnAEACzf1fuOjnv996GRkJOwFAI1/3Gbjb5r9OstrahIgBQN+vfiiO
6uW/5VeNqI3cAUBOsUijoe7kv5R10xf+KgJAqijNK9IL5L9rAQuT+38CQGlo
PQxuHuO/CgKgKG3TAkCoEe71Pz3iv8F6yF9GIQNALsTuP1h54b+gYeKirHUD
QNOuzWHUtOC/l8CPh3rEA0C5JNSjG+jfv882j8c6FARAVyXGouds3r9hYAmo

                    "]]}, 
                   Annotation[#, 
                    "Charting`Private`Tag$3451#1"]& ]}}, {}, {}}, {
               DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                AxesOrigin -> {0.1771202819948674, 0}, 
                FrameTicks -> {{{}, {}}, {{}, {}}}, GridLines -> {None, None},
                 DisplayFunction -> Identity, PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                All, DisplayFunction -> Identity, AspectRatio -> 1, 
                Axes -> {False, False}, AxesLabel -> {None, None}, 
                AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                Frame -> {{True, True}, {True, True}}, 
                FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                Directive[
                  Opacity[0.5], 
                  Thickness[Tiny], 
                  RGBColor[0.368417, 0.506779, 0.709798]], 
                FrameTicks -> {{None, None}, {None, None}}, 
                GridLines -> {None, None}, GridLinesStyle -> Directive[
                  GrayLevel[0.5, 0.4]], ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                Method -> {
                 "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                  AbsolutePointSize[6], "ScalingFunctions" -> None, 
                  "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                PlotRange -> {{0.1771202819948674, 
                 2.509877777592583}, {-3.8835425878901457`, 
                 0.3291782831657258}}, PlotRangeClipping -> True, 
                PlotRangePadding -> {{
                   Scaled[0.1], 
                   Scaled[0.1]}, {
                   Scaled[0.1], 
                   Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
              GridBox[{{
                 RowBox[{
                   TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "0.1771202819948674`", ",", "2.509877777592583`"}], "}"}],
                     "}"}], "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"scalar\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["3", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                 RowBox[{
                   TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                   "\[InvisibleSpace]", 
                   TagBox["False", "SummaryItem"]}]}}, 
               GridBoxAlignment -> {
                "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
               False, GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               GridBoxSpacings -> {
                "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
               BaseStyle -> {
                ShowStringCharacters -> False, NumberMarks -> False, 
                 PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
            GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            BaselinePosition -> {1, 1}]}, 
         Dynamic[Typeset`open$$], ImageSize -> Automatic]},
       "SummaryPanel"],
      DynamicModuleValues:>{}], "]"}],
    InterpolatingFunction[{{0.1771202819948674, 2.509877777592583}}, {
     5, 7, 0, {640}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
      False}, CompressedData["
1:eJwNk3c81I8fx+9Oqaw0qMiqpJSRVYjXR1RUKmTlF9pmSEOaCKlQ35JZCKGs
dkllZK9zHNnnzLOPcza//ng/Hq/n8/V4vP57y5xxMz1PIZFI5H93718Q3n78
JeNdEXo/S9uS/xRh9JZBuXZLEWSlL636j1MEn37+pkWBYvhCzTdIthid/Bax
8rrFUBEvj+21KIZL7mxwrlsxZvz+MLIeFMNIaF76Z3wxnugpW3ZnF2OD8hpV
ubpivLBcke47VIzU3cOSM7wlSPD5EBIsXQKhLukwLa0SRKSKRvKcKAFX1vtV
n2sJLm8OTGEFlkA4yGzPktclsA8yMdbJKQE1zpARWl+CjtSYJWR2CcTshGIe
8ZdCyxhValtL8cPs9vlJohRTNzkv/9qUQsLmSQP9Win0zurnsZ+W4k2s8cTW
9FKoBZGavEtKobld3HuosxRej7VFbi2WwjN5ZcJW8TK0XGgYHdEoQ89pijzd
tAx9nu3LWy6VQbxyfmD2YRkmiqR8dJLLEMD0mogqKAPv/bUa6xhl8C67cuDD
XBnEZmy2u2wox8aciRo9jXJE7Q+30jQrR1bRsc/H3MthJSRf6BNcDrdM80L6
23IcyKeGG5aU46R9smZTdzkkNvEkP+SpgPqLj1KnZCpwnnX54lFUYL1N7XXb
UxVg2V82Cr5ZgW7hHLW2yAq84Y7tN/lWgdEUxbft9RXI4MolPpuowO66acsL
ayuxsST5m6VqJfSY/PudTSuhm5a+JN6jErJXzBamnlQitXHrc7esSnh/Trdb
Tq1ErJLk+YKRSqjzNyfHrazCptVu8nFKVbjs8WA471gVLvJyOEvdq/B1jPeM
w5MqcNKTOkezqrBv0TMxuqYKDZpB8Q5jVUieozRYrqmGDS7ud1Wrxr32sK44
82q4SsvlzVyrBu4eHPKOqEZArZr8huxq6LTHfW5trkbG+JHYkvlqHPBKaexf
SUWolf1ligwVpYGndBRUqBBviVzlqE/Fzbs0sW8nqBALsrIVu0BFmoloR+h1
KvY5eZwXDaLiRAV/R3oUFY39ToyTaVQ43nq0RfwXFRdZnicHq6mo05+tpnZQ
0SP+LaBknIqGtsK7tUtrkKae/4O9rgamNmVam+VroOLkNXdxbw3WxDMWfx+t
gUtsiP6O0zUYFrxulOZZg2jlewK6ATWYPtb3ojuiBtym7afj3tVAeanExUu/
aiBhtFfftKYGruWGXw901UBRtvOd2WQN7rmt3unBR0ME2/FRogQNKdwrtUPK
NIjEtRw+ZEADRzh/4LslDT35Sgb7nGm4rcnkNN2hQfH2vMvj/2g4uXyP3NE3
NHBrMz9vy6bBRFzGWrSKhoz1/NwNTBp2f1z5VJVLwwsHM8WzfLWQiAiuSJKs
Bb314GWyai34gr6ucj9YC2WBD+85NrV4kv/MLNS9Fln126fgXwvmnsxY3qha
CD0uNerMqEXo8oAJekEt1M0t4tv+1mLJlsb/SMO1+B35Rledpw45Nou7/dbX
QXGbnGqvQh02z/jsOK1fh2eNf8TZVnV4XxTjHnWpDper7H9b36/Dvr00klJU
HXRZ7Z8lsuoQEjJps6moDuqfSlh7W+r+/RWH4z5Wh/hAM2b2cjouLL42l5Si
o2xC5mS0Oh3Fx59rKx6h4+Uaq8H6M3Rcfy86F3ODjibrEN6rT+jwarvp45RM
h4+o5K+rv+hozxyMiqLTYe36WrJxkA450WdHFZbUo5e9VTpavB5+7hoRm1Tr
cSx3yY+CQ/Wovb338Z0z9ThoNShk5v2vl7UU1vmvHgtrU8YN3tYjVSn4wJn8
emg1F4e8bKrH+lFvteGxelhlBjH+x98AsWY+ve7NDZjbtq7Nd28DohOOvdA1
b0C2XO70mksNyPDY/WJZ4D+uP31YOK4BkijQ2/29AfIyTsqetAZ09TpK0QYa
MJFWzN2/9C/+ROnv+Cv5F/SgLdN+e/5iIeOduZHpP5Y6vknB5S9ELc96ywf8
xdKXzaYH4v7ikvCbrJvZfyG4hn6/rO4v2uKeLtEZ+Yszetv+FqxohEuitK7j
lkaYrtu6XwGNMBy5kcZ3shH6N8jZvFcbcelkiLfMk0YMT2sHmb9rxOpzmYdT
ihrxc+9+g7XMRnj9tvVNnG8ELNLGjDc04c41ZW9h9Sbc36TjOnm8CTOfVqnO
uzThbkkSeWNQEzbv5gm3TmpC4TLNqc95TWD2vdq+q60JX/aW7yicaUKcQO3M
7XXNWEXzeW2u1ox3YlYz+02asYVjbmRzqRm+Uk6XQx81I/LVlSvMlGa4OTkP
Gxc1Y7kwJaStsxm7q1nzweQW2K3y0/yfVAsiJvdpG+m0gO9UfZyNTQviZJK3
BdxogUoKRaY+vAVjUh9bDL60oLwx2YRW1wLv6Al7//EWCO+pUbJc3YruYrv3
B3e14oJ1VoPF8Va0XPvw45FbK5ZI5+m3h7TCu+hxklVGKypzFExYla2okFfT
SB5qhf+rGZ1bgm1IiD/86Y5CG4wrJDdFGLch8ibxqMG1DceOly/TCWnDrfjm
vtyMNvAvq+t3qm7DyiLevaqjbRiJXPtNZlU7vhSHeGqotEPVIvaio1k7urmM
2Pwr7bDeuZGt+aIdM5W2gQ1f25G3VMczurEdDxde/fGfbUcPZ5FSLMSAKFXG
rE2KgQsR+feX7GJAYE5Wd98+BhwXImghZgz48i9GD59jYEJQM/b0NQaONPxi
9Ab+4+yYcz6RDNCkPRQV3zGwe/OXOFYOA+rKGw9/q2LgqY9i1ysGA9FNXkLP
xxiQzo29GrOkA0xpsaEc0Q7QE3waB7Z1IElNlEdRuwMudzod/Iw7oDM6s5Rt
14HaI40sl8sduKhfL0L278B0Vb5rQngHDIa+bbR924H7738L7PzZAQuysqYg
tQNPXYpiyJ0d2CJb6S/E7YA3Ke/49hVMSITavf3fRiZCL4xoJCgxIVK8Z3hu
HxPPBg+bu1kwQQ8/NMhxZMLPRTk1+DYThip6PppPmcjaPb11IZEJ+d7UPvo3
JpI+J33PrWBCiPB2+8Ng4mPlEpVmDhNi9gXDfCs6YTRx/aOxRCdi/Va7J+zq
xHDWfY3VBzqhoWQ3+OxkJzRNr+QounUi4LKAR4tfJ9xP6h5NiOiEg3Mw5XZ6
J3rLvw+45XfifihPzNWGTgTu0Xr0fLATYy73yivIXXCP7S9Yt64LZAdLm6s7
u3BIl+Ad1/vnKxl3bll24cgH8o6trl1o+VBgx/TtAj3wPflbRBeSvVSkkjO6
4CF2/k3Kny4UO7m+KWjqAs+yH0Ojo12IKZTm6i7rxqjYBsRKdEPFQW/1BrVu
mPVYe6cd6obE/AeOyeluzPpNPV/v1Q2rAAUtdkg3bpB+3+hM6oah+sXg3pxu
JBtaLBes60brq1+qRwa68YZ2VuQlpQfX7X2fLhPrgZdlXvWzXT34X/Zs7C6j
HozoXFvHsu/BUJiqZrZXD1bLhy9LetKDl4mn76em9EDlanpWcW4PnA0HHi/+
7UGFZ9t6E3YPjC0izXJW9OJk+g1tvU29sGvbUtWu1YsatfvLI8x6UbE2r8fR
pRczlu8Dbf170UIK+XD2VS/WzB7w8P3ai63x+uJ/qL3QPat/Waq/Fx/DxC49
5+kDNz1/6WaJPiitt1Aq1+hDMVmA8fh4H3j9lnV7OPVB7U29r/v9PugrXEp7
8KoPv5SrzbK/9eFRFsVpaW0f5sSzNl0Z6kPJqRXmc8tY+MGMGHm5iYULfV/P
n9Vhgf2y/dA+KxY2Hph8qOXJgtKZauEjISxgQ+sbn1QWHvia+FH/sNDK9nup
z2DhzKX19D+zLJz7I+N/dV0/8vI+S6ip9sMj4cr6dcf68eMMT7ykcz++v5ZN
UA3sR5Tmx3avhH5cohRYlP/ux8jqeI99Lf3YUffWum2qH7lV8mLPRAZwlv97
iL3KAGzr7DpNjw0gXTcDTi4DmBA/ZxAV9M9rPS9hvhlAZeElsVN/BlCkd1++
s2MAL2K07UMWB2B0eK7dVmIQS/1jEg5qD4LZpplnbj2Iu1E0m6DrgzjwrlKU
HjaIr617f+35NAgN0W8h1bRBGNzWv+3OHsTYShO6gfAQOHJ1A8pKQzARavi8
7+gQFmWTTLxdh9AYn+Fe+ngI5r2OdrppQ7gZNBpaVj6EoF3OZo8GhkBkCpic
5R/GbI23gemOYWgcV9O8dngYui0qou+dh6H80W5u1eNhHHpF8ESmDeMaqS9M
o3IYR36rk/mGh6GwRrtjXGgEOb/PcXmUR3CE74CMvMkIYoyJ7wGXR2Cwb+/B
6WcjCCr+svK/zyO4pa282aRhBNOTt55qTI+AEchQixccxeN59VPZkqOQkYuW
blMaRd2gYIGE3igyJnp7L5qOItn3wt7Cs6PQkDtdqH51FHvsDwR+DxjFS6UN
AccjRvEw81LhTOooZmKcDb/9GEVtY96qoMpRnO5J3+zaPordppy759ij8BJt
DT/Pw8bxPOp1PxE2nipYJn6SY4P7SktiWpONJjWZxQNH2HgUMzT13paN52mS
2soebORnWxXk+bFhE5cZcuEFG2l1CZGSqWyI3JVisH6wEXzP81RJFRuRV04I
ZHf82+lNCy7lsMGKmEroWDaGxymVaevEx7D8gqeQheIYeq9R733QG4P6zuKt
m8zH8MqWNJnoMIZ+N/derVtjaJ83G+oMHcP5I27X3yWMYWLX5ZfeX8dQsKLY
zqF8DLkhcxqO7WPQQfDYg/ExKDMkmZnLxuF9IbdsQnwcO7+qhu1THscnxRGn
DINxHJ08/kDTehzkSTnNctdx2MoZ6t3yHUflc3ElInwcwfHEsGjaOG5Sk4wF
88YxoiD4cEX9OFqeN2fID4yjv8s3wpbEQWCSeGOyCAcuGTfXr9jBwayRYupd
goP6KBUdIQsOknUEb3505uB2Z5y9mw8HjLntA3rhHIzUlN/bmc5Bx0DHd4UC
DqRHTMgHGznIfMg46TXCwaGkebPcpRNYnVNrK71xAjJnzcjhKhOwqPu2S85o
AidJHder7SZQNHjsaMi1CWS5eOZcCJ7AVcEcXcvECXwsPF5r92MC99458vnS
JjBdlvIrmzWBPrdlIoJkLigiG9bcWM/F8LMHEvNKXPxQkKdFHeTiNPmnmqkd
F3qFIS9lrnOxcablA18oF8fUPa8JJnPRz9euuu03F39E5MxsG7j4SZLelDHC
xbKF3th1yydh1tpXFiU9ieiOCQdNzUkIR4f0j5hMIttpBSPPaRKPr7ofz/Sb
xOpT752+xEyCX7Z1W8PnSZwTjDu7pnoSl2+fk3Lum0TniXteLeQpyOmfMXEU
n0L3xzNpq9Sn4Boq/4h+dAp7vDOHPzlMQWC5ckOm7xRamUoGRTFTMO/2VJv6
MgW+7QtJ+2umsDJ/f0LWwBT8hIgtu3mnEWn/dkuj9DS0dN1iX2hPQ843PN3D
YhqzTkPmTh7TaIgLunbn8TRcFX6rZiVPY7nahP18/j+fJ2jv1DaN4f2LFWPT
09hvLRLzQmQGcptFjE7umgFfiX6UtvEMUqorQ7UcZxA5JLLd0n8GtBVMgdD4
GRyk2hOsnzO4kbvqu23TDMxD83ZxuDNYeDpumLxmFnNZItPXlWdhmSP2wcF4
FtVvMknXnWbxsOrFqaTAWQRqWhqxE2chwPdq/6n8WfA6ZFqy2mdh4CJ8P2x+
Frd+nFaxE5+DqUIM11BzDquultFMLefw68/WkltX52BtL9pQ9GwOjE2yi8of
5uDOozP/kzqHfZRHVg4jc7B3t32iLjQPGZPU1dIK81jn6HVF4cg8ZHMo+aec
51Gs9nNLxsN56K0SDJN8O4/AT/lT70vnoZBueO48ax5FN4RKtFcsIDBxh7zK
9gUYplD9DxstoIn9nhHouIAE84/oDVpA7o3ON45vF6CqGzDJX76AMWt/w5qB
BcQPbYv+LrAIkbJJ2RKFRTBPjfhyjy5CvXCg/aD7Il63mfv/froIKmeBYfFx
Ef/rMX+0lr6IeetDz6e4i6hlaUneESARbL0FmWcSJKJUUz3+uyKJeDVdbj4O
EkF5eMBP14REvO6bZ8WcIRG1vnyFAldIRLbLweZQfxIhqVysvDWcRIid+Dle
mUIidrXNcR5kk4hPrxV3W1aQCH6xgJw9bSTiZeXV+B2jJMLqWmG6KoVMKP98
uMZ4LZmIGMpJvbmVTISNSj39sYdM0LVEsoQPk4ktfRVrbpwiE8Eh7tkcNzJx
Uzkm3s+XTJTb2xTJhpEJu1RntdZkMuH5QaUjOZtM5FSvLfGvJBP5LEfSDQaZ
GJaqdL87TiY2CN/eE81LIZwjl6iVbaAQGyQTHwopUIhM3UShCwSFaDxzZoRm
RiHGv4ftMr9IIdZX0ML7vSmE6mu7xPAQCrH7sCHN8jWFEIyOF9nxhUJokVYK
iJZRiL1ydGfRNgrh6NFSv32MQtQ+7eY15+UhHrTkxoeJ8RCbjK33sBR5iA59
lfgT+jyEWv1OD7olD5Ge15rk7MJDhAVo7V3nw0Nc7HT43hTGQxRKrYn++JaH
6Iq2a4n/zUOEfym5nlTHQyy/WbM0j8VD9LjxDrIXeAj+n60VWmuXEP8HnV4M
PA==
     "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1QO3EAYYBuCbbbubbdvmza6bebNdW7bdltvilrFl28aQ27Jrz917znPO
+we+7w0MDgnqFiYgIGBE2ID/E9pDazjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1gaQhLelITwYykonMZCEr2chODnKSi9zkIS/5
yE8BClKIwhShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2gRRh7rU
oz4NaEgjGtOEpjSjOS1oSSuCaU0b2tKO9nSgI53oTBe60o0QutODnvSiN33o
Sz/6M4CBDGIwQxjKMIYzgpGMYjTf8T1jGMs4xjOBiUxiMlOYyjSmM4OZzGI2
c5jLPOazgIUsYjFLWMoP/MgylrOClaxiNWtYy0/8zDrWs4GNbGIzv/ArW9jK
Nrazg53sYjd72Mtv/M4+9nOAgxziMEc4yjGOc4KTnOI0ZzjLOc5zgYtc4jJX
uMo1rnODm9ziNne4yz3u8wd/8hd/84CHPOIxT3jKM57zD//ygpe84jVveMs7
3vOBj3ziM1/4yjdCjz8MYQlHeCIQkUhEJgpRiUZ0YhCTWMQmDnGJR3wSkJBE
JCYJSUlGclKQklSkJpA0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZsg6lCXetSnAQ1p
RGOa0JRmNKcFLWlFMK1pQ1va0Z4OdKQTnelCV0IfeAjd6UFPetGbPvSlH/0Z
wEAGMZghDGUYwxnBSEYxmu/4njGMZRzjmcBEJjGZKUxlGtOZwUxmMZs5zGUe
81nAQhaxmCUs5Qd+ZBnLWcFKVrGaNazlJ35mHevZwEY2sZlf+JUtbGUb29nB
Tnaxmz3s5Td+Zx/7OcBBDnGYIxzlGMc5wUlOcZoznOUc57nARS5xmStc5RrX
ucFNbnGbO9zlHvf5gz/5i795wEMe8ZgnPOUZz/mHf3nBS17xmje85R3v+cBH
PvGZL3zlG6HDH4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4Sk
JCM5KUhJKlITSBrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIUoTBGK
UozilKAkpShNGcpSjvJUoCKVqEwVqlKN6tSgJrWoTRB1qEs96tOAhjSiMU1o
SjOa04KWtCKY1rShLe1oTwc60onOdKEr3QihOz3oSS9604e+9KM/AxjIIAYz
hKEMYzj/AcX3I4g=
      "], CompressedData["
1:eJwtWHk4Ve/3vYjMs0JEIWUKpUjsRiRFJWRqoiiKEB8RkZKiQipUlCmZZ6H3
GK55uGPIzDVmnme/q9/3r/fZz7PPc86799prrX123bh/0ZYBh8P5MuJwvy1r
hnWyY4HsV1weuv0rELY6SVh7fQUZ6DVN6fkKpL0Cjt6636C5gvEqMfUbtKMs
UpxgHLzGJB6vP4qDaJezLG19cYBrVbt7xCAeiic7U8Ry40GW+/SegJ0JMNJh
7+UUmACW2WfZe6cTwCdkpKnVKhEWd+g9MK5JBE/G64lmaklwMUq9sCs2CVSD
66wmub+DvYp4l7/Xd0hSkpuJGfkOESqz2qeuJENQ8H/iztXJoDxRdEBa/Qe0
fS9sv5b0Aw7dcS2REkmB9/4jyk5BKYCb33FYZzUFnEpZCfH3UuFNaFbMy55U
4OLddnXdOA1CBw5mLFenwc5tPOG+WumQ+TmO/U1WOshgyy8EBTPgYQeuRcYw
A+YIfdHeQRkQH/mtZUdlBsgPHldeY8iE4ANHU/ZoZ4KLQvhUuGcmtBHP4PTy
6fG59oDjs5mg+eWs3xOVLHj2SViP5X4WpEQdVyWnZMFlnep+2kgWKFXJ82rt
y4ag2VGmP7ezoWwXuxhKyAbvladrQ/3ZIEC1YLKQyQEFizckPtsceJgfK8wT
nwNjw6+pF/tz4LjYn7xOmVzYvvLkevqtXNiZweJfmZgLlzTtdkgP5wKni6x3
pVwexCSfYMp0yIObBUdwvWl5YBLN43plKg/qFU5kCh3MB+ewC7bC7vkwtVSs
dfNnPsxxPuuaXssHr/oU/arjBdD1cv+fvoACwC/wHDhdWwB/NBoYx7gLwWXv
UFTrpULQHOv6wfmxEA4zq2q+7CwE8yVbZR3pn3DZyeP4qTs/oYP9ulpExk8I
fK78WHThJ2Cyv79PaxVBk775FFdAEeCM8MEW9UWAebBwrQkUg6n0nqQei2Ko
uih9lS2uGDi3MKi6jhZDd0v2oKpaCTS/Pjct9bgE4mrwwmZVJaD3TMyiifcX
4PEXCl+Y/wLRQNsDz+N+wZqj4ZuW8V+AOyR5wlIDQYdvE4/UUwR/Um1VxZoQ
HNgYijrIhQHNLiRlVRWDxJOJgx1mGFCvpmd0P8agNnj3Xa54DNwsg0f16zAY
PHrzatYUBvab6cKlkD117WWHdilkzXH2fLAtBQ8O6b2PX5WCYWjaR6/sUggz
3/sx+k8pDIQJlVMZyiCBe9pTeV8ZuC8ft4ozKoNs2ScNGh5lYBGRXjf5pQwE
H16YxarKoKvylm7yRBkIXbm7N3d7OVha9h1ohXLIITTab7MrB7E8xVqHN+Uw
2f6ogFZQDr9dtYhuPeVQ7/1AUJK9AvZXR/T/Va0A3ews72qLCqAsiPr10WPj
YdnoDvMKoJ1N6p70q4BnEtGG4j8qQMOGafgGuQJWRTpTSlcqgHhMIUpDGg+W
rA+MygzwsHBMXtnGDQ/fRkyPSHzGA7OaF8ffSjx4TApsJUzgIdbgG70TldAm
kpBHOV4Jdc9j7szeqYT6W9xnFMMrwW/AZfxhSSVMsBDNiQOVwFctE3KUtwpO
LY/9xTSqQKkhldfkZhU8cBr+MPOqCqqefjibnFcFJA3AO3dXQdjrDmZ99mpI
z134LnewGp54sQmJWVcDK41fd2dgNeiOChxTyaqGroo30Qbt1aCkzUyHUg2o
mjkn5yrXwOEHHeHT5jUwpXBc51hADdwIjP71Ob0GSH0Lh9Zaa2CxS/+hw5Za
8EwREaEp1YLpGRsJmyu1EJwn92LUvxbwUlPTrmm1kKWSLsXdWgtfwNE4kakO
BsUTh/SU6mD/arfXiFkdkJIjXMP968DtioGDdlodCLMy2gy11MH25wdQJFM9
CLHYip5Tqof8HFH+BbN6yD1g4Pjdvx5yNtuUVg+m1w9gzK31sMwznJ/O1AAn
xncbXFBqgKB6y+5pswZw/yPK98q/AdiFrTrF0hog+vKXH6ktDeAxPZypyNQI
xq8PFqQqNoLny+cLYmaNcDrfmuzv1wiWJ7SHWlMaQWgt9qNscyOIbud+asPQ
BBXX1tk/yjeBlcaj2zmXmwCccWu/fJqgqoVtf+n3JqCtS5FjyU0QZ1wm4LnW
BMnR8+HRAgTwNCEF3d9LgFJT179qWgTwiWnPm7hAgDxljrHoWwQ4vDlujwhg
AWu3G14T4DOV8ZFBHAFMsxsXfxUQQJG131usgQCP4kodHXsI0J8/ZPN9jgAf
5YTfUdiIcFcwtH5EnAgBVoJakypEeK0m5d9+mgh5T70I2VeIsKQvKfPQkQjy
MUaGEk+I8Mihzjc7nAiFVaTnSklEKKhJUn1VRIREc45sQiMRTEOPNi/0EGHB
bJnAPEcEs8pn9+a3kuA8nUXwoiRgxr9WcVckgaEJp+nWYySwDDGV9LxIAkL0
3L4qGxI028fFTz8kgQ5XwvXFQBLseL5s1RJJApPm2MjQFBLUCXX27/5FAjK/
/Le3TSQ4OVAb86ebBCJvSjrXpuh5vExWK4xk+BIhUVArQAZJDuIuJ2kysJpQ
6yYOkoHwa1pS6zQZmoTin167TIa2B0r4y7ZkqBgjZAi7kUF1IE2G5k8GI9oZ
kloYGQxw6/sufyXD4gWuFa1MMpi0up+eRGSwidBic2gkg9QLa53MdnpcI1ZX
NEIGOVOP9y8XyeCi6vxDkoUCfC5nqA8FKMAswiAUIkkBL06T6DuKFJgI5/69
oUGBfL8EGRMdCvzH/FXW9iIFbJgRl4o1BfQjISHXngLyFZsDQYGWyNRimg8F
jHd2sL4MokD0+SxqfzgFAk7en5r8TAE6mVumJFGANay3TyCLAm7MbYGyRfR8
4zX9wXIKbH7V+XoK9DYGvLWmUOAmvxKNr50Ce/VP7Hbso0BzvM7Q7REKOMlo
HmKcokC8kkiV3jwFLC/PW/GtUmD9S7nXfwzU/807FTDdtTl2Dip838aHp3FR
4dueZa9wPioQCtvmSIJUUCHk7o/ZToWPT2oXF0So8KffQuL3Dirs7pelaotT
QTA9K2/fTirknFwtj6CfhJ86dU/o5//jkQomdpIRDWJUeJs3JStHf25ym57R
qjAVTsfadsA2Kry+rN80y08F15ueZfw8VDgf5Sz6lZ0KEafmj0cwU+HsVVaN
iQ0KANNIQ9ISBVyUo3Dl0xQoXLf6ovGXArQAVw9W+r1n8Z10xaVA8LjkwwQC
BToHF+2cKylgvaTQ5E+v3+0Zdc6BdAr4d0+NWflTwNTrZE+2GwU2rrrR9G5T
4NwmHZtRYJPtpPQo0K7Xutv+MAXeTZuzdchQwOEkXt2H3v9rmsKZhjgKCLO3
cOuMksG2SkfSupkMei42/e9LyRAq46IwkUyGYa6FtxZ03EmeUqW1eNJxldFr
fPc6GRQjG8+z6NLxKKIeEy9PhnJFiTNneMhwcwK/fYyOe1JwRlIgmQS9krtq
t+eQ4BZ2RT8ijATKT6MXNpxJ0B/leM/AkAQBWxvSHsmToK9z9dkLFhK425df
t+8mguPrTieJQiLwZpiMRb4hQkj2MGv3LSJY9Vgp9WoS4bFGtlUsDxEi/joe
EOolgL4sv4FaNgEct/S6rfkRgBAp4WNP56VRlbckh50E8Atz7OamNMGg1L7h
63ZNYORqtVi61Ag2OSHJewIbgfffXDTCWhefUHJUA9TLObAUSDaAYy/t8fOv
9fD8EG4H76562Jqnn6EeXQfhb/TaFgXofC/DSIXAWohm2uIyu1gDKeakC9y3
amDyhVuyV1M1rBmuj4urVQMpxUFiOqIKrPef4+uerYQ3txToFayEnEz+mZQ4
PPA5sV6+M18B2td2qvafrAB1P+Mg8eBy0KwAh2FiGbwJGOJV5y+DPZfbzk2e
KwXdUElLhgAMeDbbcw/Bje7CBaeaEki3+uNkJloMwYpbNPZe/wnlPlerX38q
gL53PoF2TXngcOxpwYP5HOirZ49x4c+G2sCMZ8pSmRDaqxhbb5QGwgw/Kakn
k8Hjtp7TY7p/Ty4W78npjoXoJJxLoEAUZOa5/FBRDQVN40uhbup+oLhuvcem
RhaBxQ1szMYf7d21FlXsGIaEfVctCm58Qqb2xzuv13xD0bp3dH5sJKG0MrGZ
SeM01Ln10b1VWiZayTzzuCI9B+m5V6aqv8xHP8uKLCvcfyIDuir3upWgsxFh
RssnMKQX30JUp5Sii0VXmRfvlSNa0MtvDwTwyLPyl01faSWKe9sk/9mzGh2+
Hy04oFWLuHqZNNc56pFdGlnvbH8Dqtqk/dompE1g57zSQUBr58NE7suT0JJ9
e1SXMhnlP9E0SjxKQQHXLpesnqeiZ5vltvuN2leMhUQDm9F+tRNwKb0FEay9
j852tKIPK7S9xwTb0P6Ej+NuF9tRdeamEexAPIUi97DBTtTVZyCQJ9GNHKTZ
yoQI3Ujz1Rmf/QE9aFU9UkoeetH67Bc1WO9FB3/6t3ws60NbdWt+uLyioclz
5NtbLfvRM7e+jrcqAyjQYInXmGsQ8au+uf1+YhDJvT21/1vLELLatKXVw8hQ
WyvPFhtBuFe3CQT0F9UrCVu6VI0iSfKfg3nNY0i2UnWNf2ockXCdjGzskyiY
eCQ5MmYSeexln31xdApJ7ttdLtc5hZ4WZT9sC5hGz43ib/EcnEH7CLLT0sMz
aP/BTQWcReOZs7Ecd+bQjPHzds7D88jcRrPLkGsBhbo20KLGFtCN2+yfmlsW
Ud/dJgU2whJaLLNJvkZZRnrIW1x9cAWxN39z0mJfQykme1YvwjqKehDgXhi4
gRadapwTXXFYUHVG0GFVBiy6h8Xr8QcGjJu3ntjnzoil6fZ4Ct5jwqo+kUqX
fbZgi4Ef+M/kMGPnnnIZpgtuxao3ZT+dFfO48ftlbDQ79uucz7wUMxfGcOdO
q7kEL6bgPeS3HMGP3Sl2DRM+JYwhSlNUkOs27O7mC27yY5Fe2Q3B9rxYwc6A
vxfUubHcF2Er4vqcmBGD8ufj5ezYen6o+I4nbJgGx6M/PfdZMQcPz3gF/60Y
3Ry3oSwWLN/zvGfXIjOWpNagef4CM0axVclcKtiC1d+4MeOsuAXb3c2bTElh
wlq1/jNLUmPCbgnWKaZWMmI7l/yfDFozYkPKV6191xiwQxmX/fCxDBihwElS
+iwDNmkkOCSwhMNG7Z+jPT9w2KvCu2xL13CY12PhXUdFcZh2tvSxc6kbKKu5
CDrlNxCt5I5tWfo6onjj6Kv0OopJiEidw6+hT584Q0JN11C9p0q4wNgqur1J
O89WUWeIk/nk7lW0UjdeU162guwitiR9t11BrK8PhZhxrKB/cpO9jBgjWXd8
tl5GjYGkzm6OZcSaImZuU7SEhqceRa07LKGNd+/2xEsuIf9n62xKvxfRlg2L
mpDgRaSY9WkiUWcR/b/fXERDcQvB6SULKJsUJ+j6aAGxt/+MSjyygNjUn8qp
rcwj7d0Jp/hL5lEV392pfb7zSOWER47zqXnEMfGAr4ttHjm/juexIswhGyne
9L/v55DzgKmL77U5lGtYdZNFbg6p0MvoPTv7vzmYRdK/ey/hXs2iKK3NgZ9F
vG4SvpQ9s8iO+VnKvbkZdC52RrSoYgYpc5XrVoTTcY5pH3GznUFFj0vvtRya
QZPo3WgL6wzarMLDtmlkVqtakZk2jYSbYmJ9/KbRl4bkJqrJNLIK+lH7S34a
OXmNfZRhmEZn7OoKBZun0D9fmTqFhEzfeZs+nUL/7Wz/lGsxhf7thwemUEQW
p3MKxxRCJy/EGNImkfmTXT8sSibRbMJuocqISbThkW7+0WkSfbjH74/pT6JY
XobnRjKTSOM33vEgbhK5f5WWJuVNIPa4irQxxwkUs6hCd4oTaLG8yYencxzV
72NQYXs/jsTkKpeijMZR8OzXh4h9HEm8eJ/ogh9DwRxbT2T5jqGUsAOC7kfH
0A1FupFaHEXRNN3VoNxRxN+RnUZ8MIoydn9jClUeRValh3prxv/+715/0Y0L
fIlhDn+R662iExIKfxGXGIEkNDqChB87abuljKDbcZ2XNBxHEI//kryN0ghq
0JL2mpgYRq+6feRbM4eR3l3OI7tch1HLHMfD8kPDSMP3cRdaGkLwDwdDaKjN
L/6n7xBiw5sQck4NoZiOXXgc2xD6oMJ8N7phEP2p3/U9IHQQ2aS7+xSbDiKO
Kb3io+KDqOHtu6ssfQMo5a2Vvcj3AfQfa1+i8/0BdHBeZgfPoQFUvbler/Yj
sVt2R/kq+pEu3WW6vexH4syBfiKX+tGn4uotq6L9qJpbzlm8j4b++ZMfNIRt
/vZypaHrYpZHBo7S0DsF2dhZZhoS3vo+RKOpDzHGBO3I/9CHLiww6Dne6EOt
0tBrqtCHMsR2Mf0334uwkeq3jVgvmo40dTN52YtchF52CZr0og3vygCmXb0o
pXrIV3q0Bz2amyK45/egf3uDXw8Smwh5Rb3Vg/J9CZ6Lqj0odnPd2uhGdtqD
95rr6LoSIiEX/KEbMbb4sjrbdqOSHRzs/qrdKIWOSr+NLvTBfsXUJLILHROs
/+Cn1oUIWeMSHMRONOE6+GLQoRP9Hy/Ge9E=
      "]}, {Automatic}],
    Editable->False,
    SelectWithContents->True,
    Selectable->False], "[", "#1", "]"}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    InterpretationBox[
     RowBox[{
      TagBox["InterpolatingFunction",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquarePlusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = True), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
               GraphicsBox[{{{{}, {}, 
                   TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA14w48uCrxj9MwQZTeEe6P6QBYzr7
ics/d+5RJnphwz93LNIgc2jQP8UXR9t+bcs/3pgOsSXf0j/t299BVQ7SP4ar
NhR5SdU/u6c1n83D1j9sL+rWNOjXP/ZfVW9OZNw/FHQ5pi1a2j9yZVSSQQ7h
P/opFNWOAN0/uVuSzTRm5D8hhtrWkJrfPzr6VV+Q5+c/hVGe8ucD4T8oPfdV
Fl3rP5kYlam7VOI/Nwm1T8JQ7z8OwNnmLY/jP7Jub+O5l/E/pDqUjXDD5D82
ukXMlpHzP9ltFGTnEeY/HseUFoLJ9T9vgeLA/EnnP/E8fioG7vc/pE12TUac
6D//Dpik8FP6P/nsf0Ng6Ok/tf3URFXB/D+vbNe/GB7rP7WM/WLEFP8/BKX0
awVu7D9dPFbVjdUAQLq9X56Qp+0/9EECVCkSAkAQj5AAUPvuP+NjMtUEcQNA
wpkb5m8k8D+QBEpVvs4EQC3cFQ8HwPA/l0tFQLkYBkDo+vJPuGjxP0kyH8QL
hAdA0wn30zgG8j88A1ltNtwIQE4CtoyhoPI/jgvlAAIyCkAZ11ddJEjzP7NQ
cPqKqQtAFJwgcXbk8z/L1bCzOzoNQF89zJzijfQ/lxGklVPm/j86yDL9NjT1
P43L6VlVgeA/RkPAoFrP9T/XKApN4WHhP6GaMFyYd/Y/C4830R1a4j8t4sda
pRT3P0P1A68zROM/SRMajpqu9z8Byz0+PS7kP7QgT9mpVfg/mV309EMx5T9Q
HqtniPH4P3MbY3eiJ+Y/PPjpDYGa+T8sP6tryzfnP1jCT/dIOPo/SRZqSKs6
6D8EdnAV+dL6P1E0jp3YPOk/AAZ0S8N6+z8D7Lslx1nqPyyGnsRcF/w/6Xkb
YTto6z+o4qtVEMH8P7pV/vw4kuw/tCh0G6xn/T/4S7+SsLvtP/FeYyQXA/4/
56BCkYXV7j99cTVFnKv+P0dYboznBfA/OnQuqfBI/z+vFyZ895jwP4dg4kEt
4/8/9AS6wSQr8T+SlDz5QUUAQAWA5vkCzPE/+XAb81STAEApAMzgOmTyP4i7
6/j05wBAwv44cX4L8z/fehkZCTsBQGP3kLT8sfM/TrLa2oSIAUBjN/TCUE/0
P+VXjaiN3AFAwSMA/Bv89D+UddMX/ioCQGGGmcR5n/U/awELk/t/AkCujQLE
q1L2PwoCoCht0wJAqwen2M4E9z/BeshfRiEDQPpUlT8Drfc/oGHioqx1A0Ay
J7Et6mT4P5fAj4d6xANACeSG93cS+T/PNo/HOhQEQPcvDc0IxPk/saTWag==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$3586#1"]& ]}}, {}, {}}, {
                DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                 AxesOrigin -> {0.1771202819948674, 0}, 
                 FrameTicks -> {{{}, {}}, {{}, {}}}, 
                 GridLines -> {None, None}, DisplayFunction -> Identity, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                 All, DisplayFunction -> Identity, AspectRatio -> 1, 
                 Axes -> {False, False}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                 Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                 Directive[
                   Opacity[0.5], 
                   Thickness[Tiny], 
                   RGBColor[0.368417, 0.506779, 0.709798]], 
                 FrameTicks -> {{None, None}, {None, None}}, 
                 GridLines -> {None, None}, GridLinesStyle -> Directive[
                   GrayLevel[0.5, 0.4]], ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                 Method -> {
                  "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                   AbsolutePointSize[6], "ScalingFunctions" -> None, 
                   "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                 PlotRange -> {{0.1771202819948674, 2.509877777592583}, {0., 
                  3.6534341848698424`}}, PlotRangeClipping -> True, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    
                    RowBox[{
                    "0.1771202819948674`", ",", "2.509877777592583`"}], "}"}],
                     "}"}], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               PaneBox[
                ButtonBox[
                 DynamicBox[
                  FEPrivate`FrontEndResource[
                  "FEBitmaps", "SquareMinusIconMedium"]], 
                 ButtonFunction :> (Typeset`open$$ = False), Appearance -> 
                 None, Evaluator -> Automatic, Method -> "Preemptive"], 
                Alignment -> {Center, Center}, ImageSize -> 
                Dynamic[{
                  Automatic, 
                   3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
               GraphicsBox[{{{{}, {}, 
                   TagBox[{
                    Directive[
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1]], 
                    LineBox[CompressedData["
1:eJwB0QMu/CFib1JlAgAAADwAAAACAAAA14w48uCrxj9MwQZTeEe6P6QBYzr7
ics/d+5RJnphwz93LNIgc2jQP8UXR9t+bcs/3pgOsSXf0j/t299BVQ7SP4ar
NhR5SdU/u6c1n83D1j9sL+rWNOjXP/ZfVW9OZNw/FHQ5pi1a2j9yZVSSQQ7h
P/opFNWOAN0/uVuSzTRm5D8hhtrWkJrfPzr6VV+Q5+c/hVGe8ucD4T8oPfdV
Fl3rP5kYlam7VOI/Nwm1T8JQ7z8OwNnmLY/jP7Jub+O5l/E/pDqUjXDD5D82
ukXMlpHzP9ltFGTnEeY/HseUFoLJ9T9vgeLA/EnnP/E8fioG7vc/pE12TUac
6D//Dpik8FP6P/nsf0Ng6Ok/tf3URFXB/D+vbNe/GB7rP7WM/WLEFP8/BKX0
awVu7D9dPFbVjdUAQLq9X56Qp+0/9EECVCkSAkAQj5AAUPvuP+NjMtUEcQNA
wpkb5m8k8D+QBEpVvs4EQC3cFQ8HwPA/l0tFQLkYBkDo+vJPuGjxP0kyH8QL
hAdA0wn30zgG8j88A1ltNtwIQE4CtoyhoPI/jgvlAAIyCkAZ11ddJEjzP7NQ
cPqKqQtAFJwgcXbk8z/L1bCzOzoNQF89zJzijfQ/lxGklVPm/j86yDL9NjT1
P43L6VlVgeA/RkPAoFrP9T/XKApN4WHhP6GaMFyYd/Y/C4830R1a4j8t4sda
pRT3P0P1A68zROM/SRMajpqu9z8Byz0+PS7kP7QgT9mpVfg/mV309EMx5T9Q
HqtniPH4P3MbY3eiJ+Y/PPjpDYGa+T8sP6tryzfnP1jCT/dIOPo/SRZqSKs6
6D8EdnAV+dL6P1E0jp3YPOk/AAZ0S8N6+z8D7Lslx1nqPyyGnsRcF/w/6Xkb
YTto6z+o4qtVEMH8P7pV/vw4kuw/tCh0G6xn/T/4S7+SsLvtP/FeYyQXA/4/
56BCkYXV7j99cTVFnKv+P0dYboznBfA/OnQuqfBI/z+vFyZ895jwP4dg4kEt
4/8/9AS6wSQr8T+SlDz5QUUAQAWA5vkCzPE/+XAb81STAEApAMzgOmTyP4i7
6/j05wBAwv44cX4L8z/fehkZCTsBQGP3kLT8sfM/TrLa2oSIAUBjN/TCUE/0
P+VXjaiN3AFAwSMA/Bv89D+UddMX/ioCQGGGmcR5n/U/awELk/t/AkCujQLE
q1L2PwoCoCht0wJAqwen2M4E9z/BeshfRiEDQPpUlT8Drfc/oGHioqx1A0Ay
J7Et6mT4P5fAj4d6xANACeSG93cS+T/PNo/HOhQEQPcvDc0IxPk/saTWag==

                    "]]}, 
                    Annotation[#, 
                    "Charting`Private`Tag$3586#1"]& ]}}, {}, {}}, {
                DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
                 AxesOrigin -> {0.1771202819948674, 0}, 
                 FrameTicks -> {{{}, {}}, {{}, {}}}, 
                 GridLines -> {None, None}, DisplayFunction -> Identity, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, PlotRangeClipping -> True, ImagePadding -> 
                 All, DisplayFunction -> Identity, AspectRatio -> 1, 
                 Axes -> {False, False}, AxesLabel -> {None, None}, 
                 AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
                 Frame -> {{True, True}, {True, True}}, 
                 FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> 
                 Directive[
                   Opacity[0.5], 
                   Thickness[Tiny], 
                   RGBColor[0.368417, 0.506779, 0.709798]], 
                 FrameTicks -> {{None, None}, {None, None}}, 
                 GridLines -> {None, None}, GridLinesStyle -> Directive[
                   GrayLevel[0.5, 0.4]], ImageSize -> 
                 Dynamic[{
                   Automatic, 
                    3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}], 
                 Method -> {
                  "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
                   AbsolutePointSize[6], "ScalingFunctions" -> None, 
                   "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                 PlotRange -> {{0.1771202819948674, 2.509877777592583}, {0., 
                  3.6534341848698424`}}, PlotRangeClipping -> True, 
                 PlotRangePadding -> {{
                    Scaled[0.1], 
                    Scaled[0.1]}, {
                    Scaled[0.1], 
                    Scaled[0.1]}}, Ticks -> {Automatic, Automatic}}], 
               GridBox[{{
                  RowBox[{
                    TagBox["\"Domain: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox[
                    RowBox[{"{", 
                    RowBox[{"{", 
                    RowBox[{
                    "0.1771202819948674`", ",", "2.509877777592583`"}], "}"}],
                     "}"}], "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Output: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"scalar\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Order: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["3", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Method: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"Hermite\"", "SummaryItem"]}]}, {
                  RowBox[{
                    TagBox["\"Periodic: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["False", "SummaryItem"]}]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     InterpolatingFunction[{{0.1771202819948674, 2.509877777592583}}, {
      5, 7, 0, {640}, {4}, 0, 0, 0, 0, Automatic, {}, {}, 
       False}, CompressedData["
1:eJwNk3c81I8fx+9Oqaw0qMiqpJSRVYjXR1RUKmTlF9pmSEOaCKlQ35JZCKGs
dkllZK9zHNnnzLOPcza//ng/Hq/n8/V4vP57y5xxMz1PIZFI5H93718Q3n78
JeNdEXo/S9uS/xRh9JZBuXZLEWSlL636j1MEn37+pkWBYvhCzTdIthid/Bax
8rrFUBEvj+21KIZL7mxwrlsxZvz+MLIeFMNIaF76Z3wxnugpW3ZnF2OD8hpV
ubpivLBcke47VIzU3cOSM7wlSPD5EBIsXQKhLukwLa0SRKSKRvKcKAFX1vtV
n2sJLm8OTGEFlkA4yGzPktclsA8yMdbJKQE1zpARWl+CjtSYJWR2CcTshGIe
8ZdCyxhValtL8cPs9vlJohRTNzkv/9qUQsLmSQP9Win0zurnsZ+W4k2s8cTW
9FKoBZGavEtKobld3HuosxRej7VFbi2WwjN5ZcJW8TK0XGgYHdEoQ89pijzd
tAx9nu3LWy6VQbxyfmD2YRkmiqR8dJLLEMD0mogqKAPv/bUa6xhl8C67cuDD
XBnEZmy2u2wox8aciRo9jXJE7Q+30jQrR1bRsc/H3MthJSRf6BNcDrdM80L6
23IcyKeGG5aU46R9smZTdzkkNvEkP+SpgPqLj1KnZCpwnnX54lFUYL1N7XXb
UxVg2V82Cr5ZgW7hHLW2yAq84Y7tN/lWgdEUxbft9RXI4MolPpuowO66acsL
ayuxsST5m6VqJfSY/PudTSuhm5a+JN6jErJXzBamnlQitXHrc7esSnh/Trdb
Tq1ErJLk+YKRSqjzNyfHrazCptVu8nFKVbjs8WA471gVLvJyOEvdq/B1jPeM
w5MqcNKTOkezqrBv0TMxuqYKDZpB8Q5jVUieozRYrqmGDS7ud1Wrxr32sK44
82q4SsvlzVyrBu4eHPKOqEZArZr8huxq6LTHfW5trkbG+JHYkvlqHPBKaexf
SUWolf1ligwVpYGndBRUqBBviVzlqE/Fzbs0sW8nqBALsrIVu0BFmoloR+h1
KvY5eZwXDaLiRAV/R3oUFY39ToyTaVQ43nq0RfwXFRdZnicHq6mo05+tpnZQ
0SP+LaBknIqGtsK7tUtrkKae/4O9rgamNmVam+VroOLkNXdxbw3WxDMWfx+t
gUtsiP6O0zUYFrxulOZZg2jlewK6ATWYPtb3ojuiBtym7afj3tVAeanExUu/
aiBhtFfftKYGruWGXw901UBRtvOd2WQN7rmt3unBR0ME2/FRogQNKdwrtUPK
NIjEtRw+ZEADRzh/4LslDT35Sgb7nGm4rcnkNN2hQfH2vMvj/2g4uXyP3NE3
NHBrMz9vy6bBRFzGWrSKhoz1/NwNTBp2f1z5VJVLwwsHM8WzfLWQiAiuSJKs
Bb314GWyai34gr6ucj9YC2WBD+85NrV4kv/MLNS9Fln126fgXwvmnsxY3qha
CD0uNerMqEXo8oAJekEt1M0t4tv+1mLJlsb/SMO1+B35Rledpw45Nou7/dbX
QXGbnGqvQh02z/jsOK1fh2eNf8TZVnV4XxTjHnWpDper7H9b36/Dvr00klJU
HXRZ7Z8lsuoQEjJps6moDuqfSlh7W+r+/RWH4z5Wh/hAM2b2cjouLL42l5Si
o2xC5mS0Oh3Fx59rKx6h4+Uaq8H6M3Rcfy86F3ODjibrEN6rT+jwarvp45RM
h4+o5K+rv+hozxyMiqLTYe36WrJxkA450WdHFZbUo5e9VTpavB5+7hoRm1Tr
cSx3yY+CQ/Wovb338Z0z9ThoNShk5v2vl7UU1vmvHgtrU8YN3tYjVSn4wJn8
emg1F4e8bKrH+lFvteGxelhlBjH+x98AsWY+ve7NDZjbtq7Nd28DohOOvdA1
b0C2XO70mksNyPDY/WJZ4D+uP31YOK4BkijQ2/29AfIyTsqetAZ09TpK0QYa
MJFWzN2/9C/+ROnv+Cv5F/SgLdN+e/5iIeOduZHpP5Y6vknB5S9ELc96ywf8
xdKXzaYH4v7ikvCbrJvZfyG4hn6/rO4v2uKeLtEZ+Yszetv+FqxohEuitK7j
lkaYrtu6XwGNMBy5kcZ3shH6N8jZvFcbcelkiLfMk0YMT2sHmb9rxOpzmYdT
ihrxc+9+g7XMRnj9tvVNnG8ELNLGjDc04c41ZW9h9Sbc36TjOnm8CTOfVqnO
uzThbkkSeWNQEzbv5gm3TmpC4TLNqc95TWD2vdq+q60JX/aW7yicaUKcQO3M
7XXNWEXzeW2u1ox3YlYz+02asYVjbmRzqRm+Uk6XQx81I/LVlSvMlGa4OTkP
Gxc1Y7kwJaStsxm7q1nzweQW2K3y0/yfVAsiJvdpG+m0gO9UfZyNTQviZJK3
BdxogUoKRaY+vAVjUh9bDL60oLwx2YRW1wLv6Al7//EWCO+pUbJc3YruYrv3
B3e14oJ1VoPF8Va0XPvw45FbK5ZI5+m3h7TCu+hxklVGKypzFExYla2okFfT
SB5qhf+rGZ1bgm1IiD/86Y5CG4wrJDdFGLch8ibxqMG1DceOly/TCWnDrfjm
vtyMNvAvq+t3qm7DyiLevaqjbRiJXPtNZlU7vhSHeGqotEPVIvaio1k7urmM
2Pwr7bDeuZGt+aIdM5W2gQ1f25G3VMczurEdDxde/fGfbUcPZ5FSLMSAKFXG
rE2KgQsR+feX7GJAYE5Wd98+BhwXImghZgz48i9GD59jYEJQM/b0NQaONPxi
9Ab+4+yYcz6RDNCkPRQV3zGwe/OXOFYOA+rKGw9/q2LgqY9i1ysGA9FNXkLP
xxiQzo29GrOkA0xpsaEc0Q7QE3waB7Z1IElNlEdRuwMudzod/Iw7oDM6s5Rt
14HaI40sl8sduKhfL0L278B0Vb5rQngHDIa+bbR924H7738L7PzZAQuysqYg
tQNPXYpiyJ0d2CJb6S/E7YA3Ke/49hVMSITavf3fRiZCL4xoJCgxIVK8Z3hu
HxPPBg+bu1kwQQ8/NMhxZMLPRTk1+DYThip6PppPmcjaPb11IZEJ+d7UPvo3
JpI+J33PrWBCiPB2+8Ng4mPlEpVmDhNi9gXDfCs6YTRx/aOxRCdi/Va7J+zq
xHDWfY3VBzqhoWQ3+OxkJzRNr+QounUi4LKAR4tfJ9xP6h5NiOiEg3Mw5XZ6
J3rLvw+45XfifihPzNWGTgTu0Xr0fLATYy73yivIXXCP7S9Yt64LZAdLm6s7
u3BIl+Ad1/vnKxl3bll24cgH8o6trl1o+VBgx/TtAj3wPflbRBeSvVSkkjO6
4CF2/k3Kny4UO7m+KWjqAs+yH0Ojo12IKZTm6i7rxqjYBsRKdEPFQW/1BrVu
mPVYe6cd6obE/AeOyeluzPpNPV/v1Q2rAAUtdkg3bpB+3+hM6oah+sXg3pxu
JBtaLBes60brq1+qRwa68YZ2VuQlpQfX7X2fLhPrgZdlXvWzXT34X/Zs7C6j
HozoXFvHsu/BUJiqZrZXD1bLhy9LetKDl4mn76em9EDlanpWcW4PnA0HHi/+
7UGFZ9t6E3YPjC0izXJW9OJk+g1tvU29sGvbUtWu1YsatfvLI8x6UbE2r8fR
pRczlu8Dbf170UIK+XD2VS/WzB7w8P3ai63x+uJ/qL3QPat/Waq/Fx/DxC49
5+kDNz1/6WaJPiitt1Aq1+hDMVmA8fh4H3j9lnV7OPVB7U29r/v9PugrXEp7
8KoPv5SrzbK/9eFRFsVpaW0f5sSzNl0Z6kPJqRXmc8tY+MGMGHm5iYULfV/P
n9Vhgf2y/dA+KxY2Hph8qOXJgtKZauEjISxgQ+sbn1QWHvia+FH/sNDK9nup
z2DhzKX19D+zLJz7I+N/dV0/8vI+S6ip9sMj4cr6dcf68eMMT7ykcz++v5ZN
UA3sR5Tmx3avhH5cohRYlP/ux8jqeI99Lf3YUffWum2qH7lV8mLPRAZwlv97
iL3KAGzr7DpNjw0gXTcDTi4DmBA/ZxAV9M9rPS9hvhlAZeElsVN/BlCkd1++
s2MAL2K07UMWB2B0eK7dVmIQS/1jEg5qD4LZpplnbj2Iu1E0m6DrgzjwrlKU
HjaIr617f+35NAgN0W8h1bRBGNzWv+3OHsTYShO6gfAQOHJ1A8pKQzARavi8
7+gQFmWTTLxdh9AYn+Fe+ngI5r2OdrppQ7gZNBpaVj6EoF3OZo8GhkBkCpic
5R/GbI23gemOYWgcV9O8dngYui0qou+dh6H80W5u1eNhHHpF8ESmDeMaqS9M
o3IYR36rk/mGh6GwRrtjXGgEOb/PcXmUR3CE74CMvMkIYoyJ7wGXR2Cwb+/B
6WcjCCr+svK/zyO4pa282aRhBNOTt55qTI+AEchQixccxeN59VPZkqOQkYuW
blMaRd2gYIGE3igyJnp7L5qOItn3wt7Cs6PQkDtdqH51FHvsDwR+DxjFS6UN
AccjRvEw81LhTOooZmKcDb/9GEVtY96qoMpRnO5J3+zaPordppy759ij8BJt
DT/Pw8bxPOp1PxE2nipYJn6SY4P7SktiWpONJjWZxQNH2HgUMzT13paN52mS
2soebORnWxXk+bFhE5cZcuEFG2l1CZGSqWyI3JVisH6wEXzP81RJFRuRV04I
ZHf82+lNCy7lsMGKmEroWDaGxymVaevEx7D8gqeQheIYeq9R733QG4P6zuKt
m8zH8MqWNJnoMIZ+N/derVtjaJ83G+oMHcP5I27X3yWMYWLX5ZfeX8dQsKLY
zqF8DLkhcxqO7WPQQfDYg/ExKDMkmZnLxuF9IbdsQnwcO7+qhu1THscnxRGn
DINxHJ08/kDTehzkSTnNctdx2MoZ6t3yHUflc3ElInwcwfHEsGjaOG5Sk4wF
88YxoiD4cEX9OFqeN2fID4yjv8s3wpbEQWCSeGOyCAcuGTfXr9jBwayRYupd
goP6KBUdIQsOknUEb3505uB2Z5y9mw8HjLntA3rhHIzUlN/bmc5Bx0DHd4UC
DqRHTMgHGznIfMg46TXCwaGkebPcpRNYnVNrK71xAjJnzcjhKhOwqPu2S85o
AidJHder7SZQNHjsaMi1CWS5eOZcCJ7AVcEcXcvECXwsPF5r92MC99458vnS
JjBdlvIrmzWBPrdlIoJkLigiG9bcWM/F8LMHEvNKXPxQkKdFHeTiNPmnmqkd
F3qFIS9lrnOxcablA18oF8fUPa8JJnPRz9euuu03F39E5MxsG7j4SZLelDHC
xbKF3th1yydh1tpXFiU9ieiOCQdNzUkIR4f0j5hMIttpBSPPaRKPr7ofz/Sb
xOpT752+xEyCX7Z1W8PnSZwTjDu7pnoSl2+fk3Lum0TniXteLeQpyOmfMXEU
n0L3xzNpq9Sn4Boq/4h+dAp7vDOHPzlMQWC5ckOm7xRamUoGRTFTMO/2VJv6
MgW+7QtJ+2umsDJ/f0LWwBT8hIgtu3mnEWn/dkuj9DS0dN1iX2hPQ843PN3D
YhqzTkPmTh7TaIgLunbn8TRcFX6rZiVPY7nahP18/j+fJ2jv1DaN4f2LFWPT
09hvLRLzQmQGcptFjE7umgFfiX6UtvEMUqorQ7UcZxA5JLLd0n8GtBVMgdD4
GRyk2hOsnzO4kbvqu23TDMxD83ZxuDNYeDpumLxmFnNZItPXlWdhmSP2wcF4
FtVvMknXnWbxsOrFqaTAWQRqWhqxE2chwPdq/6n8WfA6ZFqy2mdh4CJ8P2x+
Frd+nFaxE5+DqUIM11BzDquultFMLefw68/WkltX52BtL9pQ9GwOjE2yi8of
5uDOozP/kzqHfZRHVg4jc7B3t32iLjQPGZPU1dIK81jn6HVF4cg8ZHMo+aec
51Gs9nNLxsN56K0SDJN8O4/AT/lT70vnoZBueO48ax5FN4RKtFcsIDBxh7zK
9gUYplD9DxstoIn9nhHouIAE84/oDVpA7o3ON45vF6CqGzDJX76AMWt/w5qB
BcQPbYv+LrAIkbJJ2RKFRTBPjfhyjy5CvXCg/aD7Il63mfv/froIKmeBYfFx
Ef/rMX+0lr6IeetDz6e4i6hlaUneESARbL0FmWcSJKJUUz3+uyKJeDVdbj4O
EkF5eMBP14REvO6bZ8WcIRG1vnyFAldIRLbLweZQfxIhqVysvDWcRIid+Dle
mUIidrXNcR5kk4hPrxV3W1aQCH6xgJw9bSTiZeXV+B2jJMLqWmG6KoVMKP98
uMZ4LZmIGMpJvbmVTISNSj39sYdM0LVEsoQPk4ktfRVrbpwiE8Eh7tkcNzJx
Uzkm3s+XTJTb2xTJhpEJu1RntdZkMuH5QaUjOZtM5FSvLfGvJBP5LEfSDQaZ
GJaqdL87TiY2CN/eE81LIZwjl6iVbaAQGyQTHwopUIhM3UShCwSFaDxzZoRm
RiHGv4ftMr9IIdZX0ML7vSmE6mu7xPAQCrH7sCHN8jWFEIyOF9nxhUJokVYK
iJZRiL1ydGfRNgrh6NFSv32MQtQ+7eY15+UhHrTkxoeJ8RCbjK33sBR5iA59
lfgT+jyEWv1OD7olD5Ge15rk7MJDhAVo7V3nw0Nc7HT43hTGQxRKrYn++JaH
6Iq2a4n/zUOEfym5nlTHQyy/WbM0j8VD9LjxDrIXeAj+n60VWmuXEP8HnV4M
PA==
      "], {Developer`PackedArrayForm, CompressedData["
1:eJwd1QO3EAYYBuCbbbubbdvmza6bebNdW7bdltvilrFl28aQ27Jrz917znPO
+we+7w0MDgnqFiYgIGBE2ID/E9pDazjCE4GIRCIyUYhKNKITg5jEIjZxiEs8
4pOAhCQiMUlISjKSk4KUpCI1gaQhLelITwYykonMZCEr2chODnKSi9zkIS/5
yE8BClKIwhShKMUoTglKUorSlKEs5ShPBSpSicpUoSrVqE4NalKL2gRRh7rU
oz4NaEgjGtOEpjSjOS1oSSuCaU0b2tKO9nSgI53oTBe60o0QutODnvSiN33o
Sz/6M4CBDGIwQxjKMIYzgpGMYjTf8T1jGMs4xjOBiUxiMlOYyjSmM4OZzGI2
c5jLPOazgIUsYjFLWMoP/MgylrOClaxiNWtYy0/8zDrWs4GNbGIzv/ArW9jK
Nrazg53sYjd72Mtv/M4+9nOAgxziMEc4yjGOc4KTnOI0ZzjLOc5zgYtc4jJX
uMo1rnODm9ziNne4yz3u8wd/8hd/84CHPOIxT3jKM57zD//ygpe84jVveMs7
3vOBj3ziM1/4yjdCjz8MYQlHeCIQkUhEJgpRiUZ0YhCTWMQmDnGJR3wSkJBE
JCYJSUlGclKQklSkJpA0pCUd6clARjKRmSxkJRvZyUFOcpGbPOQlH/kpQEEK
UZgiFKUYxSlBSUpRmjKUpRzlqUBFKlGZKlSlGtWpQU1qUZsg6lCXetSnAQ1p
RGOa0JRmNKcFLWlFMK1pQ1va0Z4OdKQTnelCV0IfeAjd6UFPetGbPvSlH/0Z
wEAGMZghDGUYwxnBSEYxmu/4njGMZRzjmcBEJjGZKUxlGtOZwUxmMZs5zGUe
81nAQhaxmCUs5Qd+ZBnLWcFKVrGaNazlJ35mHevZwEY2sZlf+JUtbGUb29nB
Tnaxmz3s5Td+Zx/7OcBBDnGYIxzlGMc5wUlOcZoznOUc57nARS5xmStc5RrX
ucFNbnGbO9zlHvf5gz/5i795wEMe8ZgnPOUZz/mHf3nBS17xmje85R3v+cBH
PvGZL3zlG6HDH4awhCM8EYhIJCIThahEIzoxiEksYhOHuMQjPglISCISk4Sk
JCM5KUhJKlITSBrSko70ZCAjmchMFrKSjezkICe5yE0e8pKP/BSgIIUoTBGK
UozilKAkpShNGcpSjvJUoCKVqEwVqlKN6tSgJrWoTRB1qEs96tOAhjSiMU1o
SjOa04KWtCKY1rShLe1oTwc60onOdKEr3QihOz3oSS9604e+9KM/AxjIIAYz
hKEMYzj/AcX3I4g=
       "], CompressedData["
1:eJwtmHc8VX8Yx+2VkLQoskpoyqr0OSgKSQPREmkjJZH60UAZaShCUoTKKA17
Z++VPe51XXu77iXjd1Xnn+d1znl9z+s5z3m+n8/7OZKWdoetWVlYWNzYWFgY
y3/53tRNQWJS/vkE1xTIWjg4X09KQV3J8PZXoylQ1ZCT26uQiidL1/mcs04F
xbDXYvZNKrYM20fyNqdi44tE6ZDlaZAJy1kScTgNIkLPr0r6pSHBfS23bGka
WFgv18XxpmMf6ZZInG46aOdxeI9HOroTqtSRl45dESvXVnFkwGda5mbDngwQ
9K5SR/cMDB+78twrPwMcZ6KOKfNkosD2jfE5vUyo3TvqtcY3E+bB+ZPmlZmw
j538vIIvCwmZA6G7FLPgSkuy+26YhXVxVifs7bMwl3yh0Mk/C3H7DIxyE7Pw
VN7L1Kw5C1Gnpdp2zGfBf8Urt9PS2RAc7+Js0M1GmqQvX8iVbGjVCCuEP83G
0WjbTXM/skELCxOJbcmGzeovy9+w5eB6asBvilwOYmIbTjsezMG13OHI4445
yJ9pqfR/nQODRzK3VuXl4Iy6FtfYQA7YF6vcEF+Wi3qlB1YvNXLhbygTeOlc
Ltp9guKf+eUiaYj6QSA5F2sceD3byLm4MnjnI9/inxhMNjhwT/UnEvR6X52y
/AmO+eNFj31/outXRLNw8k/w/EnkJ1K2RauoLcnDUSpVrEojD/XMr5p/KQ9a
G8yTVwTm4UXSY/u8vDwo8j+tqR/PQ8yRLhcdqXws8/O+tORQPrIfz7NpuuXD
5F4eqTQ+H5t2mF1Kb8+H3o+UEGGhAnyc7HUqJQowJn85mGxfgIZx5RLr8AKw
3S2POFBXgKvV2+WCuAtxO4mSdGRHIUotLcftbQphURVbPxFWiIGIDMXB2kKk
7XqtoMdbhMrA/bWLdhehzSx1UOt6EbziHUW6o4tQ98plH6OtCOkrix85LitG
2EzrzksGxZC6sfN38f1iEPfIBYGpxTCfMORsGS+GTYnbV3/FEjhxO1XnWJfA
NXq75bk3JbgT98PStbEE1b3OqstFSvEz2WOV6MFS8GXWVgR7leL9lBWzhUqx
41WSsRB7GaRsDWXZiTJYOMkWXb9ThrFEDU3L1DI0KAb4lk+VQaR+a1ySWjlm
PR5xbXAqx64rUkorksohb+oU4M0oR6Gut5KHegVSbNrD525V4MSrEf3ZtApw
B+/w85qvAHuvZY2eZCUS6++1iWlXYumZ3BoF60o4Goctv+9ZidZvq6IkP1ZC
z3WzO3dZJVK/kT5vH6kEp801RsTSKsRbiI2eVa3Clvp3nBeOV4ES9uDVD9cq
lKRnxRhFMM83mkKlqArsvF4SVkNVuCdR97l9aTUakuZOvlGvxs5j891bTlfj
nWVIJq97NQQb6igbPlWj+eH61FdV1YiNWNZuxKhG+2+xb6YSNdgTeZvno04N
WsJVW3RtaxA5YbB568sazF5Qs7bNqMHDLf+J0qk1uK7U4lYhWIt0+8OBdLVa
XOjvsLCzrEXYw738O31qoX4m54LJj1psu2HqmN1RC6q/W+CDRXWYHs6+HKBS
hxDbRsm5M3WYYjwYSPOtAyWSK6giuQ4nnE7Jq1Dr4GesVzEh/AtGJvym3MQv
TOmtlXW0+YVT+oXcGsHM63Y6ZaZFv2BmV8tXQ/+F4WdqCu/W1SP4WUxulXE9
2EK/XTVzr8fh1wJnNb7XI8nJqeJuVz0ambtWfHkDhKQf6IrpNuBkzttEJ6cG
ZGlUvFH52AD+WMNyo5YGhHQER1YINEJrhDEZp9mI2WbrzCEHZvQO2/o8uhFg
+XAgpKUReWquS/mWNMFPWfp+y94mvJ70D1nq0oRhl9rT8Z+b0Pri5JYkahOE
HL59lF3TjO9zL1lmjjSjWJlz207vZriypl/tzmlGhDOL98x0M857+Cb8p9SC
wvVnu22uMOPJBxuK37fgvNyQ0/P2Frz3fFtXtKoVLfqi4TeOtiIhouXOY79W
HL0VGbCypBVZpTdHlnK3Qe6BQMoD7TaYJ8XknHNrg+choV0Z6W2IPai+zvt3
G6aDuphK3A5C3/Szr1M73Cwei2cmtqMnZ9/mS/R27FTXti8Q68Afmd/VgaBK
mS8RJzqw/4HOZ/s7HfBu++DmEtoBp5qNO39mdkDQqrpdn9SB83cdPUXYSXDd
JLpNXJYEc6aaXNAloY24e3PsIgnqQdIKmT4k2DhGTJfHk3CGJFMmUUPCxor7
qV8nSehWCmvzESXjlljwmg+7yaC4OzjxWJFx5Hjf2nhPMoK+7u4KjCGj23Ez
vaiKDNX3aSZadDJu6nH3z6/uRI1hWReXdie2Z2zeZHyxE0GBm372+XVidXV0
VtGPTqRcCpUea+2Et8kQ5zlOCpzeJhtKb6TATZ9lboMxBdW73Pb+d4cCk7vm
/OKRFMgstr28qIIC2YHm/XsYFNgJ388qluzCKgetnjD9Lnh1X2F9e6ML72mJ
HB1vusCnvyvsSnEXkrqnanRoXWj9Gld1bS0VBgUh5wf0qRBbHh73/SYVFv5h
mZXhVHAZ/ri7s5IKdWb3Ts9Q0anq/oJPvhscDqfLr5h242uNYJ+UezdGTF72
KH7tRvLsWJEXqRtyaRxRu4V6IBM6cE4HPWj2vrAz0rYHqk9fLToRyoxxrvXn
y3vAU9JQWTbXgxfjeW3em3vRul6X9Z1FL+jHdx4SftaL0uDc7025vQjLve3M
OtmLLfSiQ25yfcgU3vfo5PE+qEqt5A543IcA2R0lijl9oAn5Dq2d7MNRipD9
dfl+FD6PuLzudD80FC7mqfr3oyBUI+BDUT8uDEmSXOb7oSxAS/2sPICVfA0C
OlcGgOKHi4jwATwzl3sV0jQA+fgXlSeFB7E6Lb7YXW/wry7fH0TCJttw1rRB
hFyNLz1OG0ShY8Yb0c1DOL/BzFDr4hBuPnRtqA4fAv351t2lbUOYh2HgFtFh
+PnUUeeNhxHlXLBhx7Nh6HLLnGkvH0Yjz8/+ac4RXDzMl5IuM4Jt15ZPftMe
wfYLPW86LEfQzmhS0r83gp+nnyv3vR1BR8iS9+nZI4hy+DxXQWJGqWX5y9lG
cehy0M0QqVEoeXW9NNEeRab2obCDZ0cxGdD63NN9FNY5m2njkaNw9XxHvCkc
hXa3suOjvlFgjd+qaP4xdA3yRHFuHoOKWbj4u0Nj2Hr6lNsdhzH8mlcvDQgY
wzfHZndqyhhiDRjv/2sbw6F05c/GbON486fQ46g6EfX0pd44YrybL7DYjSP7
SV1s6PNxuG4ZaXFJGof5Zo9r71rHcYWDfGOWbQLBasntb+Um4MD9RcndcAKM
q0X2UQ4TkL3BFsQTPAG7hh9yX7MnYPnL+21IzwRY7O5y5AnSkHJurExFlQbx
qft3u0/RsHGdikS9Bw2mCVbSQvE0vH7N//hZPQ2PpX+Rj7BMIohHLPTUhknk
GDRnJhyexAuFtJK9tydx/+LK3VKRk3jMNbJ8X+UkvrFpmyROT8Kd6WLWsnR0
HmHxOW9ER3/0pXvRLnQInTRq3xZFR852foklNXSIR/Xs2zRPB49GsPEbBQYE
thUVmh1jYOE1T7ozYKMeQP6YwECBvuojzQ4G4u7GCisKTGGB1ix2TUGr4lxd
96UpDC9g1qspbJDKlW8rnIJrmimzxFOwupUjLCg3DauA6DbRY9MYrT/re+vh
NPh30cU3JU9De55jhULfNG591Lb1EPuN0m+zCgoHfiOG7Fsq7fobotsnDl79
8hvLPmz5IUT5jVDNhRUzWJ/jEWWqN4OSt3t/jN+Zge1FZZmhLzPY9CSMsZU6
g0EmtdaKzuLTC97M2oOzoMfHbN/gPovKQVnfqpRZfFhauadhZPZvPdbPgaM4
8gTp5Bwudj78zvCfw4m1mqNWpXMw3Cvvs5FjHuW+vbz6u+aReW+7VZXDPBbK
9Sl2HqnBUTso1Hms1noRpCHEQpjL2+mqbWQhAj1I0pZ6LIRg8irbrPMshMFs
2od97ixEzop1RzjDWQjVyPWKo1ksREx09nb+dua6u5Kfjs+yENzlqw41ibES
gyPMQu1gJWo8N0XbmbESoxN6Zh5OrATz4U5VAaxE6HBUvn4iK6F4p+fe9C9W
YqJjKKZ1kpVITfJldgIbMV4owb9LlY1QOKCnmWjKRtTxXpC64sRGJIbo2xu/
YiMCwwuGbVLYCJm9Z4/lNbMR8eYLYMX2Nx8JdoJcGk9l0WQnjAqsuOSt2InN
03zVPu7shJv1+/0botkJXuYumy5mJzgkzbI4htgJVftrmdpLOIhlDi77rbZz
EHfXLXwgDuLUkhk7WRcOYufV8ofVoRzEI27/A8k5HITQDQm3WioHwbvQ1os4
iT9ttpmT+Ou7nMSw2l7da86cxM4ZZbPwUE4i68VAA89P5vWiXK3YXk7CpNZC
1EOQi9i8YvR1oDIX4fzMoYxynItQ1lnodC7izDbjLfIfuAiWhQ1VyUUILmwM
OhfxZL9OeY44N3F/xR3OizrcBDOLdYa23MRGSYmJKy+5idjpEzZ5GUwisk2t
PNHNTdiLLe7YKMRDJDKpV0Odh4jcI5zuY8lDcJ8ONFjmw0M0flnysP47D/GY
tbG/tZ2H+P7o+e81fLyER4wtLWQ7L8F66VKj+Wle4k+/evH+zfc7L/EhwpBY
SuIlykqZBz8fEex3WTtPjY8wOHiMzGrNR0R/sL585ykf0c2SvVojg48IeCJ4
S6Wfj7BipuG8chHxR2/3LiKmFJnGfn0RMXtAbk/W20VE5+UKRd7KRUSsx0+N
l3OLCMldTWqWG/kJiSVHpB6d4icsm9+Vcr3iJxg5Zz9a1PITnUzqfym0mDAz
uLI77sBi4mUCv32M92IicNr5yNPixcRpmW9dJ/gEiAATbbK4vgDB9acRBIg/
81mFAKE0dS5YbKkg8bn78ssSnXa0MqlV+kE72FwZU8PZ7VjCdLFVLB3Q11ik
5SzRAbY0TmERdMCApPm1/1QHiLehu9lcO7BAncZvOvCbZ4bUzeSd+oUxrKMD
DhUpOiWsJLwPa9YXlSYhbqLpSsweEm7WNz5xPUdC/9Gp0KcPSVA1phdSPzJ5
qKFGwLWMBOO2x1fNR0hYvwB2S8k4v98tyFyFjILFmcG2ZmT0Maft3NtklGrt
jDILI8MzyrR4208yVvkd5j3YQ8b9KYWzcfydyKN2Nhlt7QSNuf3UTDohsjCu
u3RC0um2S30Yk3s05fMe53eC++4Lbe+BTkwqvBasEKagT1Nzg7k6BdM/LD5s
sqBg6p3GqX2eFCiQHZ7FxlFwxmefiPkvCkqY09jhOQqMqBJ3nq/rwujbPfri
B7vQEvHuy+TNLjCmzQNE33ZhX4TNzCMm95D9k6d0JrqQV7rb75A4FaP6C8JC
xXlh2r2D16k4wkMR1g2l4tHCmFBEhUSGgYgkjQrFcw8SuSW78VnjqwxxoBuf
9jQeL3buhpJd3Y3oSGZkyn5DTTeydJ6tPcHag6burcVKm3twLybK5PTJHnTd
/kIne/eg/upTl5SUHty/yinS19uDP/q0qhftH/uNDuzvRVqZ2Hp3514Yz7Qv
WfaxF5nyK+Tnm3rRdZZsosnfBz7mFE7S6PuL93Z96MgQCFF614foQkkytbYP
dinWngzufqj6NzGJqx8zxm7DKnb9/+bifhTb/Ban1fejOreyj8I/gBHa903K
WgM4OnBhdd/NAZRmKNybjx2Ap3HaU2fKANw/i+ofExtEe65swevDg7COkqjd
6zWIkwtgmzOIQG+GYen0IMzdftTFKDG5548QDIHTc8WeiMghrL7rdDKzYwhJ
Ynsu7xUb/tcHw0gRbXzx8ukwVru+SzhTNgx6gUtdMccIVlirFMpIj2B26YmY
aM0R+J58d+uyxQgKNXmVbFxH8FfPRtDtIze4OGMEGkk7Lye2jqAkWcT0xewI
OEwENiasGf17f/co2P4Y/+i/9aNQeyCv7BI2+o+fmJxktGp+d+cotvwxxjHU
e3jZz60bgxzfxKNd+8cgI/efT/LlMRR3yDnfeDz2z0/HICLVIfSxdgzJHwdS
pRhj+Os747hmxCQMjMPTxnub2Nlx6CyAzMNxxN9ccPRxKG/gbD1VPY5f6lxn
4+njkOxaX7d7zQRWKFzaslh7Ahsq14/JXJwARZAr1MVvApuupyiu+zEBKXu/
94KtE8jidedR46ChP8/I8JsCDUx1+8/uCA0yAfNP/nOhYduC8YfT/vkvDW/H
RVP30Ghw6Cs+7yw+iTGX4LkB3UnMbtFy+mY/iT/+FTyJ80msbyTyJ5HvJWqQ
OzKJBDfelhQxOhSDyg25dJm8w6SQ4Gv0v88JpYOpal6fiulIHTML5abTwXyp
lbHSDDDp2zHSiPGPKxh46UQ0+n9i/PvvwcAYN3tFOvcUaA9kxY1UpkBf+H1j
PQWROF3SLf8p/PWpKfwPm9X67g==
       "]}, {Automatic}],
     Editable->False,
     SelectWithContents->True,
     Selectable->False], "[", "#1", "]"}]}]}]], "Output",
 CellChangeTimes->{{3.719082012738855*^9, 3.719082018848802*^9}, {
   3.719082057625085*^9, 3.719082061450502*^9}, 3.719083310536045*^9, 
   3.7190833770673647`*^9, 3.727550378101789*^9, 3.730662836219308*^9, 
   3.7391597946977673`*^9},
 CellLabel->"Out[2]=",
 CellID->257340049,ExpressionUUID->"c4cd6935-72a8-41a8-b18c-788b533aa097"]
}, Open  ]],

Cell["Examples of data extraction:", "ExampleText",
 CellChangeTimes->{{3.719081092310649*^9, 3.719081097086618*^9}},
 CellID->395397968,ExpressionUUID->"fefff3f2-0dcc-4a36-b95c-a0c49efee8bd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"sourceAC", "[", "\"\<Fe\>\"", "]"}], "[", "1.23", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Iron", ",", " ", 
    RowBox[{"\[Lambda]", " ", "=", " ", 
     RowBox[{"1.23", " ", "\[CapitalARing]"}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.719080666309309*^9, 3.719080669016251*^9}, {
  3.719081074897154*^9, 3.7190810777513123`*^9}, {3.7190816890912*^9, 
  3.719081705457505*^9}},
 CellLabel->"In[3]:=",
 CellID->1139244358,ExpressionUUID->"ce6c759a-c4d7-469c-b85f-6a3f076da600"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.007216978282250611`"}], "+", 
  RowBox[{"2.211522096016708`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.719080669233822*^9, {3.71908110491463*^9, 3.7190811121541224`*^9}, {
   3.7190816898530407`*^9, 3.7190816938555527`*^9}, 3.7190817340153313`*^9, 
   3.719082063180945*^9, 3.719083315406434*^9, 3.719083378195253*^9, 
   3.72755038599903*^9, 3.730662838825569*^9, 3.7391597948344584`*^9},
 CellLabel->"Out[3]=",
 CellID->82138485,ExpressionUUID->"b1ddeab2-e967-4e8d-b653-1c0e122b637c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"sourceAC", "[", "\"\<C\>\"", "]"}], "[", "0.789", "]"}], 
  RowBox[{"(*", " ", 
   RowBox[{"Carbon", ",", " ", 
    RowBox[{"\[Lambda]", " ", "=", " ", 
     RowBox[{"0.789", " ", "\[CapitalARing]"}]}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.684477433270966*^9, 3.684477436034523*^9}, {
  3.684480307507516*^9, 3.684480311981183*^9}, {3.719081082480435*^9, 
  3.719081110224594*^9}, {3.71908170962547*^9, 3.719081730777039*^9}},
 CellLabel->"In[4]:=",
 CellID->12673241,ExpressionUUID->"a7a284e8-fe96-4f2c-9e4a-66575f1d322c"],

Cell[BoxData[
 RowBox[{"0.0041885459293051885`", "\[VeryThinSpace]", "+", 
  RowBox[{"0.0020396803615104417`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{
  3.684480312582678*^9, 3.686387567200221*^9, {3.719081105627425*^9, 
   3.719081112744521*^9}, 3.7190817344808407`*^9, 3.7190820638488483`*^9, 
   3.7190833164264*^9, 3.719083378697233*^9, 3.72755038686915*^9, 
   3.730662840078833*^9, 3.739159794952342*^9},
 CellLabel->"Out[4]=",
 CellID->1817016021,ExpressionUUID->"48a19d60-2935-4d60-86bf-603b4c8a3f2f"]
}, Open  ]],

Cell["A plot of the anomalous correction data for gold:", "ExampleText",
 CellChangeTimes->{{3.719082418115147*^9, 3.719082432897393*^9}, {
  3.719082622575109*^9, 3.719082625221333*^9}},
 CellID->1256409161,ExpressionUUID->"73b115a0-734d-4e8b-8664-a43b80d91110"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Re", "@", 
    RowBox[{
     RowBox[{"sourceAC", "[", "\"\<Au\>\"", "]"}], "[", "\[Lambda]", "]"}]}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"\[Lambda]", ",", "0.25", ",", "1.85"}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.7190833395848837`*^9, 3.7190833646543694`*^9}},
 CellLabel->"In[5]:=",
 CellID->635291495,ExpressionUUID->"7bc90e21-0c24-4ba6-b2bf-cf28568f3961"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVl3k8lF8bxu0UjSUizNj3UJSU5UalSIkoUaRIKJWQyq4kFCFkq5BKtpI9
ntOPUkm27DP2fRYz1mLknfefmc/1eebcy/dc93nOyF24ZuvOwcbGRmd9/P97
Jl1QgY2tDWaO3JAbd2dgYZvPn9nM1wZJtriNKw4MTOJOabyoUBsEtN29xnmU
gR05Y8NUlW0DnVfNla47Gdhr8aQuG5M2cMFo45/X6Jh78rbo3LA2UBytAp6n
dGzkEZ5qzt4OjaI3i6+/nMP6wjQqH3F0QA3zwKxaOwWrkH2z5RB/B1TZtR6V
raFgyUjRjbm1AzrLM0O1cinYCTaCsLdSB4jF+ux87E/BvoYKeR850gEVy4ZF
FlIU7GPIEoHzcQcY7ZxlL/UiY4+DsKjA7Z3winbTPkxiFjsYePLUxZ2/oWnr
lG5z4RSW8oX0K0r/N5ieuuDXnDGFTYlcPlxg8hsuioUM9sdMYTFFQfqME78B
ex6lpeI5hbWOvpIMvfEbNl73HLyrPIU5HvszmP7hN7y8+iDxb+4kdl0+y6Nj
dxescCrVaRVMYP9dUxleMuwCXrcdX4UyJrCtde8dth/qAmmDPbNscRNYxemv
Fuftu8Bumwbi95nA1uLmNGj+XXD3Bil4QGcCi1oxpW+q7IKJx3VkbWwcy/g5
GWi6rxt+y1gf6Bodw04cGRQxNO0Gxy++nr+6xjCexq5CPYtu+LLX7nvXtzHM
t7ZxWONMN6hWl8cLloxhlgU5R7bd7ga3A1/E1YPGsD8PnCXIVd3Q4Gm7sCwx
htkd6K5M1u+BoR/twdvOjWKbsRabeJMeqF1ilv6yGcXQ/i/kh0d6YPfLgZan
5qOYhs5HmVCHHqDsXWs+vnMU45BLfOAZ2APLxhcMvLlGsff/jp02ruqBLOep
t+YlIxiu5svy1N5eaCtjL00RHME2X5opjTfphfLnA2OHuEcwHpEt3nstemFG
kIPEvTaMrXvaDUU59sIRR1+tmslhjLJ9rEkpuBfyGFm75uqHsR+32Z5d/K8X
sLJQ60jfYeyrkuJJ/uZe6G1uum7qOYz91354S1lnLzx4TxQQPj+MVavFh3NM
9AK7okbU1LFh7E0f3uslbx8km5+VPqM+jN3fZ2AwZNUHDQHjT5Z+DmFhE85L
UfZ9sK717V3qpyEs6ElEiZZzHyi6pfx3tnAI85v5rhByrQ9e0/+gE3FD2IVn
DgL4xD6YyMPfHj42hJn89Sc59vQBR7Pk/pCeQczw1bNUjuE+yKnOMD3+fRDT
t6mzKZjugyL2fr2DtYOY9luur3//suKZLEVnPR/ECGeSitOk+2Fc+tD2Jc9B
jFlVGtrt2g9nTu2UtuYexK6IjDrNevaDtoQPqKySsAHvrfr/bvSD4UsHbsIc
CashBNCVIvqh6khl9+U+EnbrnoGrf04/5K6OXgkuIWHz1l/NRMf6ob/24JYU
VxJ24e0KQZXcD7sSnHk9HEhYO4famsECS3u5qzpYk7DS8tiyi5wDEK/5MjLL
iIT5SNkolikMANezE9RSKRI26BfB1qQxAOVKNpZRW0nYsV9lxH7dAchU7W26
y0/CdoRve8pxcAAWUp+Ifl0jYjOTA9y2bgPQz6NrP0YiYg4mW0bdrwyAwZqu
Ul03Efv2zLj+tt8ApKzmObD9ImJ7F66lPwoaAMUlnrS8L0Qs3+plwMt7A/Ao
QLj3JEbEtuV32JbHDcBe4ecRqnVE7P4Gp/b35AEw4luwim4kYosOe/hJmQMg
QLPtv99CxNw+XJqi5w2A/fjBrStdROw3f1oDV9EAzE8Pu+N7idgB9+/PJcoH
IMtgajWzk4h9qF+9u6NuADqOVXou/CRi8hI7HEy+DEDgz+9Guqx6Em+c223X
MgAOOmHTF1n1sDc/FrrcNQB8/kYXuWuI2HAw41v8xABQZgyGCkuI2Ike+Ve5
1AFo9h/dU1ZAxLCdduGVSwOQGuf/p/8VEcseq9g3xE0ErT+zs48yidgWo2mx
hS1ESJpYqpBII2JBKdvnebYRgVT8iO1LEhFzsggq0FImwsZap39kLBH7kVMU
ZaZFhN8FtfSnD4jYfubghVN6RAgdLT/yI5KISZSYSoWYE+HJuBU+LYiIRfPd
XHlynAh5qUsZu24TsRXXvM5Xp4jQ88NlluJPxLpFeeNaLhFBzZDzwbdrRCw2
2y368TUiHA3icSq6QsRMVP+7Zx1IBBs5oWc1nkRs+b1MuFA4qx5GigrjEhF7
ZxAc3P6QCLsGuAJPuBGx81/6bycmEsHe5JF9rytr/6z1A05mECE3OfFGtAsR
a+596iuaRwTCiFnZ+XNELOzCgk9XIRHUb/MnujoRMT3KCe+UciK05IjujT1D
xMj+xR6n64nAQwodE7cnYi82+N0kmoiwTYfxkMuWiJ166Hm+r5UIuqP9T9RZ
mn9r09n0XiJ0NIHVQVY8lKl4xmmECNZ6h7lkfIhYgHKEvfQsixfDPGVPBBHT
KB2yIc0TIZLnarBLMms/9xkdz14jgljG9BmxZ0QspSHd0oWLBDFHckGDpY8e
+2Muu4UEQc+Om5JTiBhbj/2BETES9KcVbdr5lIhVnC+DHAIJvpewsYewtPes
kOFFFRJcKOp8u8TSsn4++oo7STDY4fU3hbW+e71594Q+CWa2m912TWXxf6C2
K9+UBPOffpfYs/xgIvxA08OSBNeto0dvsvIvp4+rqZ4kwdnk486f0ln8Fc2U
Z5xI8HhPhrs2y0/ni5/LF7iRID/wY9fPLBZ//XWC91USyBw1r09+zuL/2VFq
RwAJVKsSLR+8ZPE/WiVODSGB5GYvr7xcFv8uMdHiByRQemsjQmH5lex8U+ha
Agmii5Vznd+wePtqbWK8JEHfrUXFL0Us3sxY7g8FJJAb2HymvJTF+/4M+80y
EpxL1q5tLmPxfZa3uthIAs5PxULe/58XeY6V8hYSeFdERi+y5jml0GUhoJsE
9qnZj3M+s3giScqfKRKosBum+H1n8ZlMIDE3D4K3cEMx7wCLz3VaX93WQZha
0K5sH2LxWT3aHSI9CAoFh3CN4yweW3hb2bQGwTjRpFthjtXf7mDEZTMI39Kz
17q5SZheff+nL2cGYZuo8sgs6/wiH9avjrowCDuCMvlVRUjYKaeF93x+g/CD
z52HIEPCNCI8cwVSB2FriIzn2n4SdnD/7s95zwchqPphsr4ZCXOe/zdo+GYQ
Ylu3aGdbkLDEC8mSV6sHwWwTlTTKOm9XzbAnLQODsKkk6q3dbRImuvawxH18
EAb77fV7wkmYVpldyzqF1Y+ESkhEDAlzVZjl0/o3COPhO/ptM0nYN06xsMey
Q+CadNym/zMJG60dylJWGwL7Q3y6Oc0kjHmzoLZ+1xDcj4nOT+oiYdrjsEIz
G4J5i4JDyzMkLKXRy8fafQjeBew6UCg6iLndR2eFCljr+xg/lm8MYiFGsXfe
fBgC/Ki3wbmQQSxtyT7NpHYISgXLoqkxg1izO7nz+s8hID+Z7o/NG8R0zLcd
bacNAQfnwE/UN4iFcVZIf98+DDWXp6lgNYQ9csnQECMMw8ht0yobpyEsvTZs
v6v8MJilRiqneQ1hH28edfirPgzClukJrx8OYVNjw0lqhsNQeMmC/de3Iex4
Iz9/jPMwNFPYI61UhzGxlRX1uAvD8PuIQXrazmGMqDZu+fjSMFicli9Z0R/G
POM/xST6DEPbyU8icxbD2D3Hq5szQobBZj+PatOVYayG/mtTYTYrnlnc1/8q
hzElfCLfr8Fh+Hm25p6n8whGsQ5RbRsdhmKfXl5DzxHsQ4TXkY7JYeArQ1yK
fiOYybRZdDdtGGLwXou7YkYwx7IF3qF/w2BP4hQ1qxzBEizseemEEdjpkdeu
LjaKMf0leERcRkD4dltHxfAoNokkK7wujoDDf9q/zOdGsTZ+/KUGjxEo8bss
wlgfxXJfyn31uz4CUnnnDz2RYt3nWtSjesJH4HtqIoNxegxLVTTiycobgcMh
CXnxrPugTqcrj+rsCJxovLhfZXwckya4VYTRRqBUc9CEujSOcXteutQ3PwKX
Ps5c+MU7gfX+8/oaszYC6767HKY1JrBQdb8oqsAoXDLKaXP3n8B+hkfxlGmP
gk/bUqfTlknMY+c7HmP/UfiPuNHHsJnCNtt+bLK6PQqlYyf2fHafwopv1kU7
BY/CeJv9+7e3p7DlitbNt++PwomaV7NNL6ewe0aLuI9PR+FiXr2u+sIU9sLS
SFy9YhTinq+3J6VPY71urSrbVkZZ72vxyFLmDBYU1TutuDYKTpt+7yrcOovJ
vBl5q7sxCpWfvDo/q89il8gLGja8YzD2IcbY8MwstnhDYmec+BhUunoXB1bO
YkKhrvoc+mPwQTb/NO42GbN4tnCEFjgGesfyg7OFqBjBtix9OmgMEobFRMPV
qdji5puU0bAx2GYsnBBykIq9CJqP74keA++E7AtfA6nYigujG6WNwdqp09pp
o1TslfKcW1IV6/e2dnZBtTSM/eNsmP6fMUiqujmvbErHuq8UdOgwx+C7tabt
b2s6VqjkpajJNg4ZHT7fE5zpmEPqTJMc3zjUD0rtMwiiYyV3pnH8EuOw2rRn
xaKKjp0zncwk7R2HFpTiraDLwKp/jVRF3BoHGY4dN7R2z2Mfnlemd94dB5Mw
E09t83ms4PqjIMWwcTh67lyimcM8limyz+Rr9Dg8vSBTlR40j4WcSmjalD4O
MaKdDLmv89jBQePuhE/jENJxz+fn2QWsjZqxkM0+AXc0o9a/pC1i3+tvdM1x
T4DliY46taJF7L/4w5UmmyfATvji/lefF7GyXQt3RkUmgH2leIM0u4il+Fty
KCtOgM/lwDk74yXMaf2PUJH5BCRaB2s3TS1hkwKntGpjWfFrsu+NWa1gaR91
5P6Ln4AlgeOrly+sYEfPCop+T5qAFWZ6NFvgClb67tvf7owJOPapW8I7dwW7
Y2nwZf7dBFy+ecR639oKhouWPav+cwKOPh43SSn+g+3lJD98JjAJbmSXOy8V
V7Hov6ETtx5Nwi3TohLtM+uYc7Xv5a4nk0AwL/BxD1jHdG+7k3VSJsG66Pjv
qqR1bPCPJYOaPQlKvLiW8l/r2O4/YusXSyehrtttjMf8Hza8/E70ROckqPnV
vVLYv4HpL/YcUN0+BZL3OG8UZrIh3McfX+/jp2CDdMxKs4gNjd2ssxiTm4LT
/m0R9XVs6PFCjnW2+hR803J2EhliQ+PzV51EDadA+pweJVyeHSUwOG+yuUwB
8WTGo+RCdjRN087pzZuCsLB2icUWDkQ/1Fcu93YKPIMbXeyGOdCfzIjvXkVT
4O85V/11ngPxHu2iM8un4HLk3+0j4pxI+fUdkGuaAh3+6cjRC5zIzeUL0XNm
CthElGvDmJxoqNVRfE1zGnLri4gE4EaTylwaB3WmIfCKrMvGSW5ECy4yfqQ3
DUFtt3csX+ZG/zTYLsnANEzv3nxXLYkbSUe/+njgxDSEt2hOZExzI0cTuk2c
7zTsyjwT9D6VB3WX3o/DV04DPnv5xBs+PpQ2uOe9dO00XLj4tItJ4ENnBCa7
pLBpMCo3XPHcw4eIHuYykk3TcGLhllHcBT40SuD9sK1nGsr7nv2g1PGhubjo
HsGVafhRGi5gcXsT4vOMlefYOwOP/+ZZR3Dxox8pBofZDWag6mT2mAqBH8U2
kr3ZYAZiFJdrKXv5EU7Wqvyf+QzUcj9+1+XNj0R7BI6snZoBNyGTGeUufiR3
6PHVxYAZ2JP93laiWADtl3tSNVkxA2PN5HWtQBwieJy+alg7A2zxfOEDaTjE
WYSXT8RmwLVXka++God+6hfEGn2bgcCudc3NTBxyPtHgnNzHyv92SqM9QhBF
hC5xmTFngOvNueRHx4TQpS+11alss2D8Yq0x1kUIHeWP8KFyzUIQvknz9Q0h
JJqK603bMgsbz19m7EsRQvnFKu/mCLNQ5v1bkTEshH6Qzthkmc7C95dCJZeD
hFGxgizPwqFZKPkgEfYkQRgleU7WHLGcBaP8nQzeV8Lo7JKv4qLtLIxK16e9
ahVGNIG4FUu3WdALvZf/S00EiRjWZ/2JmoW18VtlfUQRtBx+z/Z47Cw4lHGJ
YAsiaKDJkjcvfhbuB/t0DWzeivJO9ly3TpuF0988PqJ9W5GeN/1A/ttZYPDs
PFaavhU5pcvPnvw5C1GHAtNSPEXRasVciUvbLLy4x5bYFiGK0jo/+Xv/noU3
ZzfsT2SKot8Cp9kjibNAcSLF7mgTRcdDYyU+UGbha2GiVraBGKJkOAzW0Wch
oPdQn8NpMRRbpZT3fXEWfM59PH3zphj6xsC0R5izML+tdfproRgydVs0F9pC
hlKGhUmM4jY0HPZZQFqYDJM2e/JLD2xDIVmPO1TEyHDufemVcxe3oZpuVWfA
kyHMyOadfN42tNvinL+PJhlSCd+bT2uKow53dYM7u8jQpVnLGWAjjm5ErLBF
7SGDruyjYpEAcVRc+yQuy4gMHWslbe2fxZGK1tfcn8fIoMdbU33jkgT6apnk
2WtDhj19HQ60JxLIzeO89rg9GXjNE89eq5dAL16s1qydI0PxC90UGfx2ZFzX
FMZ7gQw3iD6RrdbbEakv2XzrJTKov9vRLHh/O5Lcqt2h7kOGdymR54cY21GV
NjNVz5cMVx/8Pn9SXhKdtvp+ziyADA4Pj/d9d5BEy5dTFI7fIUPbL+E7+1Il
UfL9izNnQsiwM8Z4IW1IEunk7CxxjyDDAnVxcVBXCrXVr/vdiCLDgx322hwp
Ushn4Mf+4BgyRD8vzL+Kl0Zb/qSyPXxMhpEin88DG9KoUNT9a3IiGa4Vp970
mMYjy106cS9SyJC1b6m4sYWApo9t2BSmk8F62s79db4MivL6KV6VzeKrZtY4
slsWKT54RmrIIYPvQ9X7k1GyqCH3Um5rPhmkzh+k1TbKogtI13OggAxH93IW
jz6TRWwkNu2pYjIoBSu/I5yRRdl/WxbnP5Ahh5FsWMcni4y2ZdT8qyCD+LvA
eV4nGUTUuRy2uZYMVZ2i9OtpBHTHeo/5Noy1fqjvuUknHklc4RCQbyDD8vFc
bQ4xPKqIbm3XbCKD8LHvzhdKpJHdq8zUfc1kqC48Uud6VxotfPY8d6iVDPsa
QnjXTkmjj8tWZa87yfAmZ//5KGNpFKCxc9PmXlY/UyGT/TrSaO/5rS5XiGRo
cCiUkNgljf4kL3/8NUyGujoF/3N60qjme9/mXRNkED0QsErbKY3u/vt0PmmG
DEkB/7o61KSRoe6LiiUqGZjXb6m+V5JG/zwiBRzmyfDH+diwhaI0wjIvXahZ
JoPOVQr5LOt5WLtFlfQaGey+oX0FqtLIjEcTF7pBhs1ZelUMTWnEaSDkNsJJ
Ac5O2s0kXWnUeG2h+gAfBbq8cEm9+6VRVF63YL4ABYRutd4qPyCNDvdVu/MJ
UwDt+By7/bg04sNl1XqJUYCJfPUXz0ijH2Zhwi3bKdBz+ebUbg9pFHvrooc2
gQKMnc/1KvylkVWhed0TeQq4j+8TV7ovjXAjalsXlSkww8dv0fdUGrWKbfE8
pUEB1bmc922vpVGCJb2+SpsVb+qJ3qZaabT1Y4VXsD4FbE9WaOyZkEa/p5+h
IUMKKM8pXOFlSqMUfPA2M1MKlNDIz8a2svbzwYH/eCwpIOr04O6Nw3jUX6ss
4XmcAs772+/oXsSjDPomn2ZbCqR3fzpvG4ZHBMe27QlOFHj5Nkkiuh6Phh+X
XZt3oQDPjGH77SE8etmQ8sXOjQJJZ1wH2TgISFHz3I3tVykweiUHtK0IaMLV
pOnuDQpMOUdU8fgRUH6KAn7QnwIVsm6tnVkEpMY2+y0nhALkDfn/ypYIaHZ3
C4E7kgK82TWl3EoyqNCz1M/jAQWC9dIzJU/LIK3OANkdCRT4kOOFkhtlEJ3X
MeBxMgUu4Azbjdlk0XtDo5/0NApYjKqtvcDLIt8bsvInsyiguen2sq2hLNqd
zxlY/pICKqOyiHxOFi31T7aI51OghXduhRkhiyoEfyjcKaDAD9H3RhKFsijw
YNFtYjHree7uXa19smjf7YRW4zIKXLI+7FsmIIdWi24qvaykwJZ2Dxe2U3Lo
0+ipu5yfKBARdm3m4hs5ZGyFV/nWSAHzzbhzgTbyiC2cLVj9OwX4wqF0Nlce
fS4f64hrocA3jUZHhXl5FDH7VXWuneUnB09hzv0K6KBMQYhNNwXifieU1FxX
QNx2j36X9VNA0f3JnU8ZCuhr9HX1bUMUOJi24RzwSQFF150MCxyjwBmlynKF
DgVkMa/X3T9FgS8NST0bAwrIsL7tkyqFAjFbfny93qeAdsZ45QbQKbCbXYWN
54cCUjzFFdO4SAGO978/dzxVQBLy2ddF/lKgeI0zTclaAQnQ9p4+v06BN/oC
VuUb8mijut2omJ0KUoeCl88UyKP5+96KTG4q8PybLCGz+p204ea33EyFyyZ9
CWZ/5VA//jkjFUcFr5mx93q5cqhlRr93QoQKt83+zI65ySFU3lGvK876/f1G
x2v6cuhj+JVX4VJU4F4+8iVEWA69OcYT1ypDhdOaYsc95mRRxvYXvnhFKpxv
rJIIaZdFjyf2nfFWpYKoXcMRiUpZFPG+E6p3sPL5N7LHPpdFAcFXlXl3sXSK
bYxatCzytODdYr+HCo6vfIS7rsmis2IvF3L2UcF0+oTr/8/PEyP7++lGVBDO
eOo2eUAWHSz6jYzNqPDlby83bqcs2nvb53WcOasek0rtAJbfCMI5fqrWLG2Q
o9u1LINESAZOASepQEE6L0K7ZRD32y7TxtNUiNIiKw5WyiCKySbB8+epcHfb
3l8nQmXQsEDuUpEbFcwMgrJ3ucugzl5D4tplKgxmWg26WMmgmuvX36beoEKi
5Z6rv/AyqNhwc8KEPxWEXo8zR3ll0Eu+vADdO1ToDjd79WeegKJf9BxojaBC
+Xx75nIzAQVduaGOf0AF8bce6V+rCeiaPr+wdywVbAh+WzzeENCpNuNBnmTW
+qr2bS8eEJBlZm+jXRoV/hYeqj8cSEBGl33f5WRS4YJIJyPTkzXvbPmBxq+o
0EHnn9E9TkASP8El7i2Lj8WLHA9TAhJI6zvUX8SKx57Co7CHgBa0t2wNqKCC
8p7iPHECAU2u5f9tqKFCgVw77sxWAupvMhkWxqigQWz4un0TAf3n4ldU1ESF
wFDHTr5l1vtHA5e81kyF1gyOaC0qHr1deX3Hoo0K6YU3TarH8SghfuDwRC8V
4iNtQagLj+45+WvpkqiwMCZf392CR7dUBMXCR6jwLde/kq0Jj5wxs1HpWSro
BHjE3KzBI9tY4jcvGhV8mBaipR/x6NDpgJKqeSpkve9aNS3Box1zb4Ps1qhg
7L3p1uVXrPPziaWfwwbL//FdPAde4tGD3WTvs5w00FkNinPLwqPdPbEXz/PS
4KxnXULzMzwavb3DyY2fBh0O8hkBKXgUL91ie1mQBvan9he4JOGRIXbV8spW
GgjbrJjGJODRrCvO7Lo4DcxVc52WHuFRKlfJPj8pGuytfUB/HotHB19b7wqU
oYHSDO1v9EM8mregqwYp0MD6ifyNkgd49JySIBumQoO/iVesRaLwyCp+l8Q9
DRoI3nnsWXoPj1Z3dQhGa9OAOKaBj4rEo9e/fXnjdGkQ48N+9WkEHtnd2roR
v5cGJ3e4PSOF4xGH5MflJAMaXNN+O3qOpUs/2dFSgQbiMUoPxVj6nMvSRMYB
Gtw/rtXCydKbOVJIzw/TgPFYYk6Fpavy9Lpyj9IAp6AhFM7S7od7fr62psFt
Gu8GPyufyOytxncnaUBoetz2g6VRnMSnktM0ODZxk6eOVd9V7eqyMicanAj3
lh9l1S/ZceZdpQsNAjvV8vex+vvmt5pTe5EGQqIXtzaw+vcXz0jHPGjgcbeZ
HMziI19jkNjgTYNmR/TWk8Wv7SzxYdM1GvScGjt6j8U3eCMovPkmDQp/uHC1
xuNR78H66513aaDa8OTUQjIeRU05X+4JpUFc5jn4mYpHujEbLgORNNiZWkLs
TMejx60m1mOxNHj/TKTzKssPBr4j5lPxNLhV/zFyPQ+PpkUjjMlJNDB4uSmr
5g0eHXBs0FzIYNUTa1T+qRSP6MyLSivPaTAudMWdvRyPsp9z4ddyafApW+ev
bzUe/Rk/JMBZSAOjVmUt4n94VHzt26zIJ1Z8RWWuhh48OiviOboN0aDvr+tD
LxIebSrf1C/ZSIPk7plcozE8clu1/C7/k5Uv6SzZfQ6Ptt9vea1DpAEXskss
Zc3bVxWf53rDNMho43AvESIgvx+41P3jNOg13/6rT5yAfgmeiDKj0GD+gzPp
vTIB3UvvcLNlsvb7ufXcTXMCsrN/SClkm4PLd8q8H1oTkJKQiR8v9xw4/hf5
r8OBFf9+UeSnLXNwRuwmxnGFgHhvROcoy8yBgFNj4K9kAurVAPVwhTnQ33O+
P+o5Ab2ZXHo/oDIHSl8Gw/0LCOjI2YufE3bOgdWVg7dXEAHFHDYeXjWdg0MX
8PRMOgE5cix52JvPwfT47myRdQJSr3s3V2I5B/u/RZHQJhnUrLN9w+3kHOzo
i5psVJBBAoRFfKvbHFxLCPrn5yiD4hffOuU+mAPOdj3FwE4ZdL7k/Nh67Bzc
iaiprB+TQTu9xL0dEubgUdKluSOLMqht6N6dLc/m4G507XUTflkk0uzy7FbB
HHTH193j05ZFo/e3yXUUz0FtABraoS+LPpi0vNlRNgcjQqcDnE1l0cmK/VUj
tax6deMEdU7KouSXYj1HW+bg7z/ji49vySK3sz+d89vnwF4t/v72cFm0Rzxy
kq17Di4SBQPGY2RRdxx9qXxwDko8ozUlX8gi8cBmUVn6HBiShx02WmTRsdcm
anc20aFl8NiJJ7pySOT6c/8IfjpInc7psTaRQ736/z7HbKHDRn7k4oFjcujC
j1rHDGE6lHe3PG70kEMBVL24T9vpoL9PBx/7XA4ZVDztbZSig4QX133JYjnE
Frqo2IKnQ65iniflkxyKEfpQR5Kjg/efqROnB+RQtq7m3D81OpwQPF+YISWP
LjJjDXh30MH5W/3U9R3ySPXL7ANBLToEq3xpSjOSRx9OvZGV1aFD253rH9rO
y6Om2wq2pvvpYN3F9TLonTyKM4vItjCkQ5Dy3QRVTB7Z8o/M2hjT4SXfC40D
nfKImJkdecGMDlHx85ENTHlEx7aXR1rSwWb+uW2QvQIqjw5kj7Oiw+P28oe4
qwrojk3PseTjdHhiNBNucF8BcY0lT+bZ0oHvAa+Af6UC+v5uQafIjg6Xllrm
j7QroMd+tqHlp1j5LDRSesgKaDuPkMRXRzq4qgkqOigoosFfPm6/ztKhdOVw
6kUTRZSX2lLa7UyHp7uCes86KyIttViLqQt0CL9q0H00SxGZWfHc5fOmQ+U7
n3Q7ZSXEK+beJHSVpVt1vFeOKqGfpIat26/RgWoa5rP7phI6dS28UO0mi9cl
w1rqVyUkpT/8Z5c/HdIbqE45C0pomA0O7b9FB7Z8d7VrBGXklcgkWd6lg+Il
vd7fd5WRtpOT+slgOqQk/lyxK1FGiwo1AU6hdGgwVfucNamMqikSDRfD6XDv
WoygjLwKCim/JXglkg4fxbXqj1xQQQdCup387tNBS8/2TcxrFcR3eM+boAd0
COHsLTizosI6H5IX7z2kw+ecqXRhe1WU1Dtv8iiW5R8QEquuVEXzlEL72Ed0
KFiVbsiUVkMn2D28HsbTIbnXfjfPfTUkoD6QdD+JDi5FEVYb59SRl/HTN5FP
6VDDfOJ5pkUdfbO1rgtPZflThkvvl5EGUvbY1BH6jA7qZnrPzn7RQPfuNkwG
Z9Dh+qkizzjHHWg0PnjtbhYdHl02i3Cf3YFM8vYK3XlOB1lNHa7zNzRRdhVD
MfAlHb44VAstkjXR+s93+wJy6XD0hej3Z6e00NkR9+N+r1h+qAo7/r1IC9Us
yVz0fc3ib7f/v1WqFpLY3H/r+ls6BKiHHMrfqo0CCMlxPu9Y+W8L7/7arIV+
6xx/eaWI1S8bNT7eUgvpHOar8Cph8Yo9IvTogyZKcPrvx+X3dJj+x1/ymE8T
zV0LGrpUxvIvyFxys9mBjt/TW3QrZ63X8dIefKKBCtPofBcr6VBd95vr5y91
tLmoAO9azfL3F/PhdQF1dPmzm45LLR2uaL2pPWCjhr52EQ6fq2PFy/00XTek
ihRne52cMDr8HF5/XhKliiL+JV4/85kOK2435ZL3qqIRkWP3TzfQgZhOJngw
VJCJCm+6/Rc6PKPutlQsU0HZBp+LTzbRwfgb3r7prgpiWt9tsPlOh6ynfoyj
lirI0W1Pr3UzHYoRb3sRXgVVBc5RjrWw5ufjq1fTi8po26O37FatdPjgtt18
tVEZdZbjNY500uGs+GuuVU9lpPOjB8y76KCpX5o1CcooYfCJ3cEeOrjpROSN
iSsjK16eEJMBOuSXnGq/1KKECqRQojGJDkq7Do6mFSghvp13XhsO0WEguk1P
96ESanSgtemP0WFQdkbS9bASMiroVthFpoPc/mDauTZFlFmfoK9NpYNOMu+p
pY+KaLXD8pjmHGu+F4OqndMVUcVafYDaAh0UyncL8Xmw5vfY6+9ya3Twe/Kv
A3gVUZyr66DMOh1OFuSnf6croFl/qQX8Bh2i60q7SP0K6HV2vLQkJwPqhyKL
YkoVkCz91jURfgaEWsdTP59XQAlCRj8NtjDgpUOgp4mVAmLbxaHmLsgAQT3L
1F36CmjoRtxo5VYG6MKrnNPCCih74YX9OWkGiLoENAw1ySOc6KUPUQQG+NjG
OTlWyKPg3RqCpbIM0GoreafySh6d9S//xqHEgIfzcTHFkfJIauW7wRtNBrQl
f9P4d0AexYjHp7VrM6BirXT64255tLrXbml1FwNwUkriBUryqD9wsPiYHgOe
2t8pOMwnj9JW5+UWjBlwNujU0karHNr2T4rP+AQDuFWpKr6X5VAUYcTNw5YB
h/RU/A6dlUPLxvmfE+wY4LK3XNL0hBzqCt15d8yBAVbh/aZFrP93yeyHaNGu
DPDaAZJ6/HJImNvnd6cvAx6/+MRuWSGLBATQC8+nDDDUk7WwkpVFval8PD6p
DNhsrzhgJCGLXinYePs+Y8Ct12oBJkKyyNhgdM/dLAbMmHdI3WaTRTe8uJrj
XjGgFnl6ujbIoO5vR5ZKyhmw1ZZfaPmYDHpxv91iuYsBZ4QSq3huEdAVYcmS
1R4GMOT1ql28CGhf1gXRjT4GmDr4D/46R0AdHxcGeQdZ/TKO1NMOEhD3uJjf
9kkG9On7ntstSkBeZo7ZhssMqDa49vF2Bet+uDE6H7FtHjiJVySGeFn321S9
Fx8k5mGdNBrzkimN6Foxx0Yl50FLUobox5BGhc673pjKzEMjlOkeHJBGivWh
59hU5yHmjuXd/BJpJBos/S143zx4bS2fDXWSRsur9lmBZ+fhW2q6s2C9FPqd
+NbyjfM8VGyc/5f/UQp9UF9f6Tk/D9x8uymW76SQj2Oe7V73edDb8nNvZZoU
mqye512+Og/KmlxkvJ8U6gmM970ZOg+hndHbN2tKoarlb4d9cubh3hP2tf58
SaTdf6suKW8eVsI1/85lS6L8OmXd6vx5+NnxMIk/VRI9vXePwPVuHn5He+HO
PpBEviImS8/K5sHCVm32wmVJpKFVmfOlcR7kuHZ7ie2QRNnur9alp+ZB6XBc
xZnq7eje7/CyZo0FWOIlCyxOSSAHhY+7fmougH/X8QadUQm0w3ey5Kf2Alz3
jAsOIEqg34JHC1t0FyAoM2+3YLsEUjoq+qrVYAFWvNNEg2sk0NfP+SmdRxeg
5aPjIeXHEoivpPn2gPcCvFXL51U1kECxD8VMyO8WYCLYNTMnUxxdH7flES9e
gLOV5x9HpoqjU5Dw06x0ASRv3m+8nCiO5Jc2n0n/uAB3v947AtHiqOo8m69F
3QKoBbboSvqJo/G95NzXvxaAS9/R2NtKHBlPIl43xgKEW19yKGcXRwyzK61E
vUUIO55RcOXWNpTYmRWaULUI0Y36PVFxYuiOZY55xd4lCHoX57LUKIo+f/EU
Kv68BLdfU45EcouiAxICax5my/CaJHqU5LEVKVy7Mb3Qsgw7BJ669LaKIOOs
98umJ1ZAvbnEhHhCBL143yjF0bYCaRd2Po0YFkauP9IPJDv+gRNm9x5l+Aqj
czVH46YH/oDlXZ7KrduEUVUx1oO7/Bf+EUQP59cKIceHPPtfM/7Cx9EDtkve
QmivgWodu+8quP7l5pZQE0K+DIEDWuurUI+FBTm3CaLpkJ8z0qFrMH+z9FGc
myB6Ne/8OvjfGhzI6nxdzyOIoo6c981nY4Lx0zJHE25BdCnb1aiVgwmhHukD
/3EKImVLt05ZXiYk/bh39AebIHrz0nOjQZAJTn3cbGOrOFR4wu/0ZjkmkPoz
rY3mcKis+CFv6gEmbBLXaUrsxaHPXh89SqOZ8PbVkMDLIhz6p7HP4GMME0Ii
7lRfKcQhQ2odriqOCdIcDLF973Co4lpTOZbABGbpAKnzDSu+Xz9naxoTvgzz
ZQjn4VBKCNsL6hsmcDg4EovSceg33L/JKGBChvXXW/ee4ZAw++bDS4Ws+Mub
/nNKw6G4yK00ZikT4qL/XBBIwaHwaGVDgWom3Ojo+Of/BIeuJFr1qn9ngik7
vsIzGocKTra/02pmApy8tvPoAxyaEj0VqtPChMioZTvNKBy6kOqivL+dCTkl
KUH0SBw6nenrZ9HHBIfT6KR9KA4ln1s5fGyACYVHYsZ1QnCogxAkZUNixc9U
HxIJxiGrl/f/cxhhgmp8hufAHRwyy08TujzDhF/5q/ppATgU5oEf9yYzga9I
NyTRH4fqVHMqr1GZcMcli/jED4f0371zvsVgQted4zHffHHI/8pOnbsLrP1Y
mSr5dwOHPmiWc4cuMeHiVNCRfSytWVpfGPWXCUb3tmlVX8MhrxsHwmLWmLBn
tE913QeH3uh8O/l4nQl/xLbNm7G0fHn76lP2dVB1DTjafgWHJGrGj7zatA66
egfTJz1xaC2YS3KCfx0aB48yBVl60FSRrIhbB1yoKH33ZdZ+cx/85Ca0DmED
vOwaHjiU9/3iozyRdXAK/EmSvIRDu/pG23Ol1qHmWFDVe1ccsvwz7JijuQ6b
/h1MC3bAoSA90pXnNuug9lzh6eHDOOSyyjQaOsmqh93YxMCcxateWlDm1Dpo
h8fUaR/CIT7zs++zHddBmh6gKXUAh57aDyxlXVyHccnvfWvGOFTs1xeS6b8O
guYPrMb1cOiJ/l9r4q11EMsfXhvfg0N+TAk56Tvr8DXTPWByNw7tv+fQkBGy
DkjT9AdZB4eaknp4Mx6sw8G1S/0bWix/nF7p7X+4Di2ah9p4WPqxlHiBZNw6
ZCW5euM0ccgu95RVesI6+N3kapXRwKG9HgH4/sR1iBk0LVRTxyFJjRTa9qfr
QFq2s92thkPrtHLsTOo6fGFT/Q9UcWj4Q1fCs2fr8MzkFfOoCg79DwAAORg=

       "]]},
     Annotation[#, "Charting`Private`Tag$3640#1"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0.25, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
     Charting`ScaledFrameTicks[{Identity, Identity}]}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0.25, 1.85}, {-15.538377925540072`, 0.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.71908244021244*^9, {3.7190833187086277`*^9, 3.719083380691433*^9}, 
   3.7275503882085752`*^9, 3.7306628420097923`*^9, 3.739159795319758*^9},
 CellLabel->"Out[5]=",
 CellID->1370804607,ExpressionUUID->"bfad22af-712b-4002-aefe-9739af124a3e"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "708356f4-4fec-48cb-a9a9-fa1611bbffaa"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"3beb3f71-f35e-47b0-a579-dba44b1dd8ad"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "3d665ddb-80d5-4d7a-95e0-ef07cb4c7be1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"0a90f5bc-5a3e-438b-a28a-bd5c241327b9"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"DispersionCorrections\"", "ExampleSubsection",ExpressionUUID->
   "1b28bb6f-79d8-4b8c-a17d-26baaaddd78c"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.717953325838842*^9, 3.717953330181901*^9}},
 CellID->1757724783,ExpressionUUID->"8e89291e-4a8e-47e3-8ac2-0fc0337e4473"],

Cell[TextData[{
 "The dispersion corrections (",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["f", "\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath",ExpressionUUID->
  "6752bc09-5bbf-4e20-a09f-ab1ae305ed2a"],
 " and ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["f", "\[Prime]\[Prime]",
    MultilineFunction->None], TraditionalForm]], "InlineMath",ExpressionUUID->
  "a1225a77-6cc3-49d1-ab74-5e515b883742"],
 ") may be be turned off."
}], "ExampleText",
 CellChangeTimes->{{3.717953455120637*^9, 3.717953491092668*^9}},
 CellID->5576810,ExpressionUUID->"616eb3a0-6722-4649-bcd7-073fe269698c"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"GetAtomicScatteringFactors", "[", "\[IndentingNewLine]", 
    RowBox[{"\"\<SodiumChloride\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "2", ",", "2"}], "}"}], ",", "0.709317", ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<DispersionCorrections\>\"", "\[Rule]", "tf"}]}], "]"}], ",",
    "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "tf", ",", "True", ",", "\"\<Apply dispersion corrections\>\""}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{
  3.737968446135223*^9, {3.742010004195074*^9, 3.742010005061688*^9}, 
   3.74386585715186*^9},
 CellID->808044184,ExpressionUUID->"ae4753cb-9633-400f-9be7-baf4fa05960c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"f0Source\"", "ExampleSubsection",ExpressionUUID->
   "4b70cbff-e152-4c74-b03b-423d55acea12"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.717953325838842*^9, 3.717953330181901*^9}, {
  3.730663252199409*^9, 3.7306632534778547`*^9}},
 CellID->1270895210,ExpressionUUID->"604f3456-a85e-4246-926d-3c585744df1d"],

Cell["Available sources:", "ExampleText",
 CellChangeTimes->{{3.730663441496573*^9, 3.730663445903831*^9}},
 CellID->1057121796,ExpressionUUID->"b749da1f-47c4-4d52-b4f1-dfbd09074745"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f0files", "=", 
   RowBox[{"FileBaseName", "/@", 
    RowBox[{"FileNames", "[", 
     RowBox[{"\"\<*.m\>\"", ",", "\[IndentingNewLine]", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
        "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
         "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\""}], "}"}], 
       "]"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"f0files", "//", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.730663473199259*^9, 3.730663507546722*^9}, 
   3.743865418006907*^9},
 CellLabel->"In[1]:=",
 CellID->288447783,ExpressionUUID->"dd77496f-34aa-4e0e-88cb-6de32f10b57d"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"\<\"CromerMann\"\>"},
     {"\<\"EPDL97\"\>"},
     {"\<\"InternationalTablesC(3rd)\"\>"},
     {"\<\"Kissel\"\>"},
     {"\<\"Kissel(modified)\"\>"},
     {"\<\"WaasmaierKirfel\"\>"},
     {"\<\"XOP(2.1)\"\>"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.730663477383614*^9, 3.7306635078255043`*^9}, 
   3.730663647322555*^9, {3.739159817936048*^9, 3.739159828097875*^9}, 
   3.739159913363253*^9},
 CellLabel->"Out[2]//TableForm=",
 CellID->17196657,ExpressionUUID->"1c78eed1-03b0-4af4-a642-84d6dd243ac8"]
}, Open  ]],

Cell["We can check the difference when using the various sources:", \
"ExampleText",
 CellChangeTimes->{{3.730663615636403*^9, 3.7306636439458427`*^9}},
 CellID->178665038,ExpressionUUID->"894cdc93-cbf8-432c-a602-74ade2484846"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GetAtomicScatteringFactors", "[", 
     RowBox[{"\"\<SodiumChloride\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "1.541", ",", 
      RowBox[{"\"\<f0Source\>\"", "\[Rule]", "#"}]}], "]"}], "&"}], "/@", 
   "f0files"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.730663552918112*^9, 3.7306635959688663`*^9}, 
   3.737968446186944*^9, {3.739159820649263*^9, 3.739159822270619*^9}, {
   3.739159893458274*^9, 3.7391599086163063`*^9}, 3.743865857241735*^9},
 CellLabel->"In[3]:=",
 CellID->21449087,ExpressionUUID->"755d71cb-0243-4c2b-a2ca-13d45440a0b0"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.108029568931352`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"13.832583715564343`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.107454184908516`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"13.832814542056573`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.106425672491863`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"13.841737811641446`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.198321479030163`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"14.050131005676512`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.189505186235657`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"14.025609872616508`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.109091539912082`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"13.841811615565195`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Na\"\>", "\[Rule]", 
         RowBox[{"9.180750956408342`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.123945560319996`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"Cl\"\>", "\[Rule]", 
         RowBox[{"14.024012107366048`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.7021305012110411`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7306635759748*^9, 3.7306635964351273`*^9}, 
   3.730663647518248*^9, 3.7391598281938257`*^9, {3.739159897852352*^9, 
   3.739159913600082*^9}},
 CellLabel->"Out[3]//TableForm=",
 CellID->1261405501,ExpressionUUID->"e2b6aba9-a599-436b-b7cd-21ebf74f0533"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"f1f2Source\"", "ExampleSubsection",ExpressionUUID->
   "e9f75dda-2a66-4197-acb8-38bf9aa4c19a"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.717953325838842*^9, 3.717953330181901*^9}, {
  3.730663252199409*^9, 3.7306632534778547`*^9}, {3.730663658617393*^9, 
  3.730663659148345*^9}},
 CellID->446420701,ExpressionUUID->"d6c8bc51-fe7a-4179-ba50-1541c767ce21"],

Cell["Available sources:", "ExampleText",
 CellChangeTimes->{{3.730663441496573*^9, 3.730663445903831*^9}},
 CellID->1832342736,ExpressionUUID->"a9abaf9c-8aa2-4117-8172-0ce283e48f4a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f1f2files", "=", 
   RowBox[{"FileBaseName", "/@", 
    RowBox[{"FileNames", "[", 
     RowBox[{"\"\<*.m\>\"", ",", "\[IndentingNewLine]", 
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
        "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
         "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", ",", 
         "\"\<AnomalousCorrections\>\""}], "}"}], "]"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"f1f2files", "//", "TableForm"}]}], "Input",
 CellChangeTimes->{{3.730663473199259*^9, 3.730663507546722*^9}, {
   3.730663662674089*^9, 3.730663680651781*^9}, {3.730722847845234*^9, 
   3.730722851741815*^9}, 3.743865418117743*^9},
 CellLabel->"In[1]:=",
 CellID->1268865972,ExpressionUUID->"a17b2be2-c194-4758-9f9b-f3492d8aa660"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {"\<\"BrennanCowan\"\>"},
     {"\<\"Chantler\"\>"},
     {"\<\"CromerLiberman\"\>"},
     {"\<\"EPDL97\"\>"},
     {"\<\"Henke\"\>"},
     {"\<\"Kissel\"\>"},
     {"\<\"Sasaki\"\>"},
     {"\<\"Windt\"\>"},
     {"\<\"xraylib\"\>"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.730663477383614*^9, 3.7306635078255043`*^9}, {
   3.730663647322555*^9, 3.730663680994306*^9}, 3.730663723227426*^9, 
   3.739159936307384*^9, 3.739159966325096*^9},
 CellLabel->"Out[2]//TableForm=",
 CellID->1553536524,ExpressionUUID->"f562d6d0-fb45-4656-8e6d-3fd6fa15ded6"]
}, Open  ]],

Cell["We can check the difference when using the various sources:", \
"ExampleText",
 CellChangeTimes->{{3.730663615636403*^9, 3.7306636439458427`*^9}},
 CellID->874044547,ExpressionUUID->"d244ae65-ad4c-469d-bcae-81bb2b4e4627"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GetAtomicScatteringFactors", "[", 
     RowBox[{"\"\<GalliumArsenide\>\"", ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", "0.709317", ",", 
      RowBox[{"\"\<f1f2Source\>\"", "\[Rule]", "#"}]}], "]"}], "&"}], "/@", 
   "f1f2files"}], "//", "TableForm"}]], "Input",
 CellChangeTimes->{{3.730663552918112*^9, 3.7306635959688663`*^9}, {
   3.730663673321669*^9, 3.73066371951239*^9}, 3.737968446255763*^9, {
   3.739159943648654*^9, 3.7391599572235117`*^9}, 3.7438658573573008`*^9},
 CellLabel->"In[3]:=",
 CellID->1278555949,ExpressionUUID->"b46b18c1-f1d8-42b2-977c-88652bba5ea4"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"26.88562726042242`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.6126445111575203`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"28.21630902741234`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.0105912367881156`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"57.94103588581672`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.6003897698614786`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"61.28340868915784`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.9971766966531175`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"26.88186623684051`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.6083074092494538`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"28.215995343748553`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.005873303836078`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"57.88661166348`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.62732885955419`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"61.21948766382417`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.023630001404462`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"57.90194638764393`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.6459760671215071`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"61.234911816939174`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.085879450395922`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"25.03634496643437`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.3419838663273581`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"26.15335712400096`", "\[VeryThinSpace]", "+", 
          RowBox[{"0.17858155085598154`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"26.808818693333947`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.608534652016862`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"28.130794094192108`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.0061415950487467`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"57.90194638764393`", "\[VeryThinSpace]", "+", 
          RowBox[{"1.6459760671215071`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"61.234911816939174`", "\[VeryThinSpace]", "+", 
          RowBox[{"2.085879450395922`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]},
     {
      RowBox[{"\[LeftAssociation]", 
       RowBox[{
        RowBox[{"\<\"Ga\"\>", "\[Rule]", 
         RowBox[{"26.88564112798317`", "\[VeryThinSpace]", "-", 
          RowBox[{"1.6128095096483552`", " ", "\[ImaginaryI]"}]}]}], ",", 
        RowBox[{"\<\"As\"\>", "\[Rule]", 
         RowBox[{"28.21981046697239`", "\[VeryThinSpace]", "-", 
          RowBox[{"2.00941271207171`", " ", "\[ImaginaryI]"}]}]}]}], 
       "\[RightAssociation]"}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.7306635759748*^9, 3.7306635964351273`*^9}, 
   3.730663647518248*^9, {3.73066368673604*^9, 3.730663723446267*^9}, {
   3.739159961740747*^9, 3.7391599665605164`*^9}},
 CellLabel->"Out[3]//TableForm=",
 CellID->1182178642,ExpressionUUID->"1459657c-30c6-4e08-85b2-183f5f6d1d5e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "\"IgnoreIonCharge\"", "ExampleSubsection",ExpressionUUID->
   "c58b0084-37b9-40c2-a6ad-edfa95f3f937"],
  $Line = 0; Null]], "ExampleSubsection",
 CellChangeTimes->{{3.71795333152556*^9, 3.717953333645396*^9}, {
  3.727550414306037*^9, 3.727550417032789*^9}},
 CellID->1295379749,ExpressionUUID->"2dc79940-aa7d-43a8-99fa-3b578cc9cf45"],

Cell[TextData[{
 "Ions are ignored by default. The current default database of atomic \
scattering coefficients (",
 Cell[BoxData["\<\"WaasmaierKirfel\"\>"], "InlineFormula",ExpressionUUID->
  "7d57646b-4f1b-41b9-b295-6d7798e979ca"],
 ") supports the following elements and ions:"
}], "ExampleText",
 CellChangeTimes->{{3.71795339568216*^9, 3.7179534331468554`*^9}, {
  3.71908041472484*^9, 3.719080447431136*^9}, {3.727550501244155*^9, 
  3.727550516715173*^9}, {3.7428745437522583`*^9, 3.74287456073956*^9}},
 CellID->448984603,ExpressionUUID->"1f1e2e56-dd07-4b01-b41d-a38cf598d9df"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Keys", "@", 
  RowBox[{
  "MaXrd`Private`$f0", "[", "\"\<WaasmaierKirfel\>\"", "]"}]}]], "Input",
 CellChangeTimes->{{3.727550455269178*^9, 3.727550495132078*^9}, 
   3.739169164634479*^9, 3.743836653738699*^9},
 CellLabel->"In[1]:=",
 CellID->1266901336,ExpressionUUID->"598acefa-0118-454a-9a6b-1bd76ef4308e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"H\"\>", ",", "\<\"H1-\"\>", ",", "\<\"He\"\>", 
   ",", "\<\"Li\"\>", ",", "\<\"Li1+\"\>", ",", "\<\"Be\"\>", 
   ",", "\<\"Be2+\"\>", ",", "\<\"B\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C(val)\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O1-\"\>", ",", "\<\"F\"\>", ",", "\<\"F1-\"\>", 
   ",", "\<\"Ne\"\>", ",", "\<\"Na\"\>", ",", "\<\"Na1+\"\>", 
   ",", "\<\"Mg\"\>", ",", "\<\"Mg2+\"\>", ",", "\<\"Al\"\>", 
   ",", "\<\"Al3+\"\>", ",", "\<\"Si\"\>", ",", "\<\"Si4+\"\>", 
   ",", "\<\"Si(val)\"\>", ",", "\<\"P\"\>", ",", "\<\"S\"\>", 
   ",", "\<\"Cl\"\>", ",", "\<\"Cl1-\"\>", ",", "\<\"Ar\"\>", 
   ",", "\<\"K\"\>", ",", "\<\"K1+\"\>", ",", "\<\"Ca\"\>", 
   ",", "\<\"Ca2+\"\>", ",", "\<\"Sc\"\>", ",", "\<\"Sc3+\"\>", 
   ",", "\<\"Ti\"\>", ",", "\<\"Ti2+\"\>", ",", "\<\"Ti3+\"\>", 
   ",", "\<\"Ti4+\"\>", ",", "\<\"V\"\>", ",", "\<\"V2+\"\>", 
   ",", "\<\"V3+\"\>", ",", "\<\"V5+\"\>", ",", "\<\"Cr\"\>", 
   ",", "\<\"Cr2+\"\>", ",", "\<\"Cr3+\"\>", ",", "\<\"Mn\"\>", 
   ",", "\<\"Mn2+\"\>", ",", "\<\"Mn3+\"\>", ",", "\<\"Mn4+\"\>", 
   ",", "\<\"Fe\"\>", ",", "\<\"Fe2+\"\>", ",", "\<\"Fe3+\"\>", 
   ",", "\<\"Co\"\>", ",", "\<\"Co2+\"\>", ",", "\<\"Co3+\"\>", 
   ",", "\<\"Ni\"\>", ",", "\<\"Ni2+\"\>", ",", "\<\"Ni3+\"\>", 
   ",", "\<\"Cu\"\>", ",", "\<\"Cu1+\"\>", ",", "\<\"Cu2+\"\>", 
   ",", "\<\"Zn\"\>", ",", "\<\"Zn2+\"\>", ",", "\<\"Ga\"\>", 
   ",", "\<\"Ga3+\"\>", ",", "\<\"Ge\"\>", ",", "\<\"Ge4+\"\>", 
   ",", "\<\"As\"\>", ",", "\<\"Se\"\>", ",", "\<\"Br\"\>", 
   ",", "\<\"Br1-\"\>", ",", "\<\"Kr\"\>", ",", "\<\"Rb\"\>", 
   ",", "\<\"Rb1+\"\>", ",", "\<\"Sr\"\>", ",", "\<\"Sr2+\"\>", 
   ",", "\<\"Y\"\>", ",", "\<\"Y3+\"\>", ",", "\<\"Zr\"\>", 
   ",", "\<\"Zr4+\"\>", ",", "\<\"Nb\"\>", ",", "\<\"Nb3+\"\>", 
   ",", "\<\"Nb5+\"\>", ",", "\<\"Mo\"\>", ",", "\<\"Mo3+\"\>", 
   ",", "\<\"Mo5+\"\>", ",", "\<\"Mo6+\"\>", ",", "\<\"Tc\"\>", 
   ",", "\<\"Ru\"\>", ",", "\<\"Ru3+\"\>", ",", "\<\"Ru4+\"\>", 
   ",", "\<\"Rh\"\>", ",", "\<\"Rh3+\"\>", ",", "\<\"Rh4+\"\>", 
   ",", "\<\"Pd\"\>", ",", "\<\"Pd2+\"\>", ",", "\<\"Pd4+\"\>", 
   ",", "\<\"Ag\"\>", ",", "\<\"Ag1+\"\>", ",", "\<\"Ag2+\"\>", 
   ",", "\<\"Cd\"\>", ",", "\<\"Cd2+\"\>", ",", "\<\"In\"\>", 
   ",", "\<\"In3+\"\>", ",", "\<\"Sn\"\>", ",", "\<\"Sn2+\"\>", 
   ",", "\<\"Sn4+\"\>", ",", "\<\"Sb\"\>", ",", "\<\"Sb3+\"\>", 
   ",", "\<\"Sb5+\"\>", ",", "\<\"Te\"\>", ",", "\<\"I\"\>", 
   ",", "\<\"I1-\"\>", ",", "\<\"Xe\"\>", ",", "\<\"Cs\"\>", 
   ",", "\<\"Cs1+\"\>", ",", "\<\"Ba\"\>", ",", "\<\"Ba2+\"\>", 
   ",", "\<\"La\"\>", ",", "\<\"La3+\"\>", ",", "\<\"Ce\"\>", 
   ",", "\<\"Ce3+\"\>", ",", "\<\"Ce4+\"\>", ",", "\<\"Pr\"\>", 
   ",", "\<\"Pr3+\"\>", ",", "\<\"Pr4+\"\>", ",", "\<\"Nd\"\>", 
   ",", "\<\"Nd3+\"\>", ",", "\<\"Pm\"\>", ",", "\<\"Pm3+\"\>", 
   ",", "\<\"Sm\"\>", ",", "\<\"Sm3+\"\>", ",", "\<\"Eu\"\>", 
   ",", "\<\"Eu2+\"\>", ",", "\<\"Eu3+\"\>", ",", "\<\"Gd\"\>", 
   ",", "\<\"Gd3+\"\>", ",", "\<\"Tb\"\>", ",", "\<\"Tb3+\"\>", 
   ",", "\<\"Dy\"\>", ",", "\<\"Dy3+\"\>", ",", "\<\"Ho\"\>", 
   ",", "\<\"Ho3+\"\>", ",", "\<\"Er\"\>", ",", "\<\"Er3+\"\>", 
   ",", "\<\"Tm\"\>", ",", "\<\"Tm3+\"\>", ",", "\<\"Yb\"\>", 
   ",", "\<\"Yb2+\"\>", ",", "\<\"Yb3+\"\>", ",", "\<\"Lu\"\>", 
   ",", "\<\"Lu3+\"\>", ",", "\<\"Hf\"\>", ",", "\<\"Hf4+\"\>", 
   ",", "\<\"Ta\"\>", ",", "\<\"Ta5+\"\>", ",", "\<\"W\"\>", 
   ",", "\<\"W6+\"\>", ",", "\<\"Re\"\>", ",", "\<\"Os\"\>", 
   ",", "\<\"Os4+\"\>", ",", "\<\"Ir\"\>", ",", "\<\"Ir3+\"\>", 
   ",", "\<\"Ir4+\"\>", ",", "\<\"Pt\"\>", ",", "\<\"Pt2+\"\>", 
   ",", "\<\"Pt4+\"\>", ",", "\<\"Au\"\>", ",", "\<\"Au1+\"\>", 
   ",", "\<\"Au3+\"\>", ",", "\<\"Hg\"\>", ",", "\<\"Hg1+\"\>", 
   ",", "\<\"Hg2+\"\>", ",", "\<\"Tl\"\>", ",", "\<\"Tl1+\"\>", 
   ",", "\<\"Tl3+\"\>", ",", "\<\"Pb\"\>", ",", "\<\"Pb2+\"\>", 
   ",", "\<\"Pb4+\"\>", ",", "\<\"Bi\"\>", ",", "\<\"Bi3+\"\>", 
   ",", "\<\"Bi5+\"\>", ",", "\<\"Po\"\>", ",", "\<\"At\"\>", 
   ",", "\<\"Rn\"\>", ",", "\<\"Fr\"\>", ",", "\<\"Ra\"\>", 
   ",", "\<\"Ra2+\"\>", ",", "\<\"Ac\"\>", ",", "\<\"Ac3+\"\>", 
   ",", "\<\"Th\"\>", ",", "\<\"Th4+\"\>", ",", "\<\"Pa\"\>", 
   ",", "\<\"U\"\>", ",", "\<\"U3+\"\>", ",", "\<\"U4+\"\>", 
   ",", "\<\"U6+\"\>", ",", "\<\"Np\"\>", ",", "\<\"Np3+\"\>", 
   ",", "\<\"Np4+\"\>", ",", "\<\"Np6+\"\>", ",", "\<\"Pu\"\>", 
   ",", "\<\"Pu3+\"\>", ",", "\<\"Pu4+\"\>", ",", "\<\"Pu6+\"\>", 
   ",", "\<\"Am\"\>", ",", "\<\"Cm\"\>", ",", "\<\"Bk\"\>", 
   ",", "\<\"Cf\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.72755045881929*^9, 3.727550520496023*^9}, {
   3.7306630333325977`*^9, 3.7306630396990843`*^9}, 3.739160023060092*^9, 
   3.739169169878689*^9},
 CellLabel->"Out[1]=",
 CellID->1001355690,ExpressionUUID->"653a6ecf-e7eb-475a-ae32-361aec821631"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "5fc488cd-e565-42f8-933a-431538c580c1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"65fffc6c-07c2-445c-93c0-e5f367f70e83"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "b3bfbb91-5b5b-44ea-9349-680dd1efffb7"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"329d48cb-72c0-4994-8a9b-10527fbc1a45"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "4e734f47-76eb-49be-a161-c8712b863e71"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"3db12b31-d7b6-4ad4-8394-fc60861af2f6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{
   RowBox[{"{", "\"\<Cf\>\"", "}"}], ",", 
   RowBox[{"{", "0.123", "}"}], ",", "1.541"}], "]"}]], "Input",
 CellChangeTimes->{{3.721981934883155*^9, 3.72198194139913*^9}, {
   3.721981998552417*^9, 3.721982006822599*^9}, 3.737968446386436*^9, {
   3.739160094510046*^9, 3.739160120949554*^9}, {3.739160159710678*^9, 
   3.73916016128625*^9}, 3.743865857453053*^9},
 CellLabel->"In[1]:=",
 CellID->571907541,ExpressionUUID->"13199e42-8379-4a37-b753-758678c9cd21"],

Cell[BoxData[
 TemplateBox[{
  "GetAtomicScatteringFactor","missing",
   "\"\[LeftGuillemet]\\!\\(\\*RowBox[{\\\"\\\\\\\"Cf\\\\\\\"\\\"}]\\)\
\[RightGuillemet] is missing in data source for the \\!\\(\\*RowBox[{\\\"\\\\\
\\\"dispersion corrections \
(\\\\\\\\!\\\\\\\\(\\\\\\\\*FormBox[RowBox[{SuperscriptBox[\\\\\\\\\\\\\\\"f\\\
\\\\\\\\\\\\\", \
\\\\\\\\\\\\\\\"\[Prime]\\\\\\\\\\\\\\\",MultilineFunction->None], \\\\\\\\\\\
\\\\\"+\\\\\\\\\\\\\\\", SuperscriptBox[\\\\\\\\\\\\\\\"f\\\\\\\\\\\\\\\", \\\
\\\\\\\\\\\\\"\[Prime]\[Prime]\\\\\\\\\\\\\\\",MultilineFunction->None]}],\
TraditionalForm]\\\\\\\\))\\\\\\\"\\\"}]\\).\"",2,1,5,26462081242408807492,
   "Local","MaXrd`GetAtomicScatteringFactor"},
  "MessageTemplate2"]], "Message", "MSG",
 CellChangeTimes->{3.7391601615429497`*^9, 3.739160210914845*^9},
 CellLabel->"During evaluation of In[1]:=",
 CellID->1984012887,ExpressionUUID->"5bc4bd6e-4de0-4e0d-99a4-3f6b825d84df"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.721982000927902*^9, 3.721982038261047*^9}, 
   3.727550541699306*^9, 3.7306632230973787`*^9, {3.739160094749319*^9, 
   3.7391601215831823`*^9}, 3.739160161550439*^9, 3.739160210940158*^9},
 CellLabel->"Out[1]=",
 CellID->1326004840,ExpressionUUID->"808a4465-acb1-470c-93a6-d1b1ce905a87"]
}, Open  ]],

Cell[TextData[{
 "Setting the ",
 Cell[BoxData["\<\"DispersionCorrections\"\>"], "InlineFormula",
  ExpressionUUID->"b42de608-9130-4855-aeb2-b59d7079a0b4"],
 " option to ",
 Cell[BoxData[
  ButtonBox["False",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/False"]], "InlineFormula",ExpressionUUID->
  "fc6733b4-64b2-426a-b76b-f53bc42423b4"],
 " or leaving out the wavelength will make the function skip the dispersion \
correction procedure."
}], "ExampleText",
 CellChangeTimes->{{3.721982051201108*^9, 3.721982127476695*^9}, {
   3.739160175365305*^9, 3.7391601889729643`*^9}, 3.7441724511273603`*^9},
 CellID->1273977826,ExpressionUUID->"f3bdac9c-18e3-4706-a097-ef7dd1e0cf25"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GetAtomicScatteringFactors", "[", 
  RowBox[{
   RowBox[{"{", "\"\<Cf\>\"", "}"}], ",", 
   RowBox[{"{", "0.123", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.721982029651619*^9, 3.721982033642878*^9}, 
   3.737968446426991*^9, {3.739160133526527*^9, 3.739160153829077*^9}, 
   3.743865857578404*^9},
 CellLabel->"In[2]:=",
 CellID->765477456,ExpressionUUID->"af43c745-7f7d-4ff1-8bb0-cbc580233afc"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{"\<\"Cf\"\>", "\[Rule]", "90.40993054122816`"}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.7219820338665752`*^9, 3.721982039371291*^9}, 
   3.72755054938417*^9, 3.730663233923091*^9, {3.7391601413872833`*^9, 
   3.739160154190055*^9}, 3.739160212298758*^9},
 CellLabel->"Out[2]=",
 CellID->773896162,ExpressionUUID->"1416c7d7-3876-405f-9941-ddf187a803f9"]
}, Open  ]],

Cell[TextData[{
 "One could also apply the ",
 Cell[BoxData["\<\"f1f2Source\"\>"], "InlineFormula",ExpressionUUID->
  "3dfbe985-30c3-43cc-895b-20796c0f3e46"],
 " option to use a source that contains the element."
}], "ExampleText",
 CellChangeTimes->{{3.739160425219356*^9, 3.739160430227343*^9}, {
  3.739160512883769*^9, 3.73916052626545*^9}, {3.73916071642908*^9, 
  3.739160718932578*^9}, {3.739160862066217*^9, 3.739160956962414*^9}},
 CellID->1973839192,ExpressionUUID->"0a50f43a-60db-4f62-a4e9-57d6d4b1888e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "8df05cf8-8ae1-4f00-a07d-7f3af62e456c"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"17eb1ffe-9c2e-4b7b-9b2a-7b6319d17aea"],

Cell["\<\
The code in the following cell will produce an interactive frame where one \
can compare the discrepancy between the various sources of the atomic \
scattering factors:\
\>", "ExampleText",
 CellChangeTimes->{{3.722688632524226*^9, 3.722688688444016*^9}, {
  3.739160400853293*^9, 3.739160401435858*^9}, {3.742874573165249*^9, 
  3.742874573339203*^9}},
 CellID->676444527,ExpressionUUID->"8fa125df-c7c7-4394-8035-d2fb1001959e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Sources", " ", "for", " ", "f0"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"sourcesF0", "=", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<*.m\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
         "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
          "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\""}], "}"}], 
        "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"$f0", "=", 
     RowBox[{"Association", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"FileBaseName", "[", "#", "]"}], "\[Rule]", 
         RowBox[{"Import", "[", "#", "]"}]}], "&"}], "/@", "sourcesF0"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sourcesF0", "=", 
     RowBox[{"FileBaseName", "/@", "sourcesF0"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Sources", " ", "for", " ", "f1"}], "+", "f2"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sourcesF1F2", "=", 
     RowBox[{"FileNames", "[", 
      RowBox[{"\"\<*.m\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"FileNameJoin", "[", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
         "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
          "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", ",", 
          "\"\<AnomalousCorrections\>\""}], "}"}], "]"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"$f1f2", "=", 
     RowBox[{"Association", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"FileBaseName", "[", "#", "]"}], "\[Rule]", 
         RowBox[{"Import", "[", "#", "]"}]}], "&"}], "/@", "sourcesF1F2"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sourcesF1F2", "=", 
     RowBox[{"FileBaseName", "/@", "sourcesF1F2"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Master", " ", "source"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"$f", "=", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<f0\>\"", "\[Rule]", "$f0"}], ",", 
       RowBox[{"\"\<f1f2\>\"", "\[Rule]", "$f1f2"}]}], "|>"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{
    "Function", " ", "for", " ", "calculating", " ", "and", " ", "plotting", 
     " ", "discrepancies"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"PlotDiscrepnacy", "[", 
      RowBox[{
      "checktype_String", ",", "srcA_String", ",", "srcB_String", ",", 
       "\[Lambda]_", ",", "sl_", ",", "ignoreions_", ",", "plotrange_"}], 
      "]"}], ":=", 
     RowBox[{"Module", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "commonkeys", ",", "delkeys", ",", "npat", ",", "calc", ",", "out1", 
         ",", "out2", ",", "temp"}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"Common", " ", "elements"}], " ", "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"commonkeys", "=", 
         RowBox[{"Intersection", "@@", 
          RowBox[{"Keys", "[", 
           RowBox[{
            RowBox[{"$f", "[", "checktype", "]"}], "/@", 
            RowBox[{"{", 
             RowBox[{"srcA", ",", "srcB"}], "}"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"commonkeys", "=", 
         RowBox[{"DeleteCases", "[", 
          RowBox[{"commonkeys", ",", 
           RowBox[{"x_", "/;", 
            RowBox[{"StringContainsQ", "[", 
             RowBox[{"x", ",", 
              RowBox[{"\"\<(\>\"", "~~", "__", "~~", "\"\<)\>\""}]}], 
             "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"npat", "=", 
         RowBox[{"{", 
          RowBox[{"DigitCharacter", ",", "\"\<+\>\"", ",", "\"\<-\>\"", ",", 
           RowBox[{"\"\<(\>\"", "~~", "__", "~~", "\"\<)\>\""}]}], "}"}]}], 
        ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Calculating", " ", "procedure"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"Which", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"checktype", "===", "\"\<f0\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"calc", "[", "src_", "]"}], ":=", 
           RowBox[{"(", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"temp", "=", 
              RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"AppendTo", "[", 
              RowBox[{"temp", ",", "\[IndentingNewLine]", 
               RowBox[{"GetAtomicScatteringFactors", "[", 
                RowBox[{"commonkeys", ",", 
                 RowBox[{"{", "sl", "}"}], ",", "\[IndentingNewLine]", 
                 RowBox[{"\"\<f0Source\>\"", "\[Rule]", "src"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{
                 "\"\<IgnoreIonCharge\>\"", "\[Rule]", "ignoreions"}]}], 
                "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"DeleteCases", "[", 
              RowBox[{"temp", ",", "0."}], "]"}]}], ")"}]}], ",", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"checktype", "===", "\"\<f1f2\>\""}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"calc", "[", "src_", "]"}], ":=", 
           RowBox[{"(", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"temp", "=", 
              RowBox[{"<|", "|>"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"AppendTo", "[", 
              RowBox[{"temp", ",", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"#", "[", "\"\<f1f2\>\"", "]"}], "&"}], "/@", 
                RowBox[{"GetAtomicScatteringFactors", "[", 
                 RowBox[{"commonkeys", ",", 
                  RowBox[{"{", "sl", "}"}], ",", "\[Lambda]", ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                  "\"\<f0Source\>\"", "\[Rule]", "\"\<WaasmaierKirfel\>\""}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{"\"\<f1f2Source\>\"", "\[Rule]", "src"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"\"\<SeparateCorrections\>\"", "\[Rule]", "True"}], 
                  ",", "\[IndentingNewLine]", 
                  RowBox[{
                  "\"\<IgnoreIonCharge\>\"", "\[Rule]", "ignoreions"}]}], 
                 "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"DeleteCases", "[", 
              RowBox[{"temp", ",", "0."}], "]"}]}], ")"}]}]}], 
         "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Perform", " ", "calculations", " ", "for", " ", "the", " ", "two", 
          " ", "sources"}], " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"out1", "=", 
         RowBox[{"calc", "[", "srcA", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"out2", "=", 
         RowBox[{"calc", "[", "srcB", "]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Delete", " ", "any", " ", "zeros", " ", 
          RowBox[{"(", 
           RowBox[{"not", " ", "comparable"}], ")"}]}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"delkeys", "=", 
         RowBox[{"Complement", "[", 
          RowBox[{"commonkeys", ",", 
           RowBox[{"Keys", "@", "out1"}], ",", 
           RowBox[{"Keys", "@", "out2"}]}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"KeyDropFrom", "[", 
         RowBox[{"out1", ",", "delkeys"}], "]"}], ";", "\[IndentingNewLine]", 
        
        RowBox[{"KeyDropFrom", "[", 
         RowBox[{"out2", ",", "delkeys"}], "]"}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Relative", " ", "differences"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"temp", "=", 
         RowBox[{"Abs", "[", 
          RowBox[{
           FractionBox[
            RowBox[{"out2", "-", "out1"}], "out1"], "*", "100"}], "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{"Prepare", " ", "tooltip"}], " ", "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"temp", "=", 
         RowBox[{
          RowBox[{"Normal", "@", "temp"}], "/.", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Rule", "[", 
            RowBox[{"Z_String", ",", "d_Real"}], "]"}], "\[RuleDelayed]", 
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"$PeriodicTable", "[", 
                RowBox[{
                 RowBox[{"StringDelete", "[", 
                  RowBox[{"Z", ",", "npat"}], "]"}], ",", 
                 "\"\<AtomicNumber\>\""}], "]"}], ",", "d"}], "}"}], ",", 
             "Z"}], "}"}]}]}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", 
        RowBox[{"(*", " ", "Plot", " ", "*)"}], "\[IndentingNewLine]", 
        RowBox[{"ListPlot", "[", 
         RowBox[{
          RowBox[{"Tooltip", "@@@", "temp"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Frame", "\[Rule]", "True"}], ",", 
          RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"PlotRange", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"plotrange", ",", "plotrange"}], "}"}]}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Initial", " ", "setup", " ", "for", " ", "manipulation"}], " ", 
    "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"keys", "=", 
     RowBox[{"Keys", "@", 
      RowBox[{"$f", "[", "\"\<f0\>\"", "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Manipulation", " ", "controls"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"PlotDiscrepnacy", "[", "\[IndentingNewLine]", 
      RowBox[{
      "checktype", ",", "\[IndentingNewLine]", "srcA", ",", "srcB", ",", 
       "\[IndentingNewLine]", "lambda", ",", "sin\[Theta]\[Lambda]", ",", 
       "\[IndentingNewLine]", "ignoreions", ",", "plotrange"}], "]"}], ",", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "checktype", ",", "\"\<f0\>\"", ",", 
         "\"\<Compare \!\(TraditionalForm\`\*SubscriptBox[\(f\), \(0\)]\) or \
\!\(\*FormBox[RowBox[{SuperscriptBox[\"f\", \
\"\[Prime]\",MultilineFunction->None], \"+\", SuperscriptBox[\"f\", \
\"\[Prime]\[Prime]\",MultilineFunction->None]}],TraditionalForm]\)?\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<f0\>\"", ",", "\"\<f1f2\>\""}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"TrackingFunction", "\[Rule]", 
        RowBox[{"(", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"checktype", "=", "#"}], ";", "\[IndentingNewLine]", 
           RowBox[{"keys", "=", 
            RowBox[{"Keys", "@", 
             RowBox[{"$f", "@", "#"}]}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"srcA", "=", 
            RowBox[{"srcB", "=", 
             RowBox[{"First", "@", "keys"}]}]}], ";"}], "\[IndentingNewLine]",
           "&"}], ")"}]}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "ignoreions", ",", "False", ",", "\"\<Ignore ion charges?\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"False", ",", "True"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"plotrange", ",", "Automatic", ",", "\"\<Plot range\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "All"}], "}"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "sin\[Theta]\[Lambda]", ",", "0.10", ",", 
         "\"\<Sin[\[Theta]]/\[Lambda] [\!\(\*SuperscriptBox[\(\[CapitalARing]\
\), \(-1\)]\)]\>\""}], "}"}], ",", "0.0", ",", "1.5", ",", "0.01"}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "lambda", ",", "1.0", ",", "\"\<Wavelength [\[CapitalARing]]\>\""}], 
        "}"}], ",", "0.25", ",", "2.50", ",", "0.05"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"srcA", ",", 
         RowBox[{"First", "@", "keys"}], ",", "\"\<Source A\>\""}], "}"}], 
       ",", 
       RowBox[{"Dynamic", "@", "keys"}], ",", 
       RowBox[{"ControlType", "\[Rule]", "Setter"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"srcB", ",", 
         RowBox[{"First", "@", "keys"}], ",", "\"\<Source B\>\""}], "}"}], 
       ",", 
       RowBox[{"Dynamic", "@", "keys"}], ",", 
       RowBox[{"ControlType", "\[Rule]", "Setter"}]}], "}"}]}], 
    "\[IndentingNewLine]", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.743865418271797*^9, 3.7438654183296757`*^9}, {
  3.7438658576897373`*^9, 3.743865857783738*^9}},
 Background->RGBColor[0.87, 0.94, 1],
 CellID->979539406,ExpressionUUID->"12237604-f873-48bd-aa9d-09c4ff793dc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[TextData[{
   StyleBox["Mathematica",
    FontSlant->"Italic"],
   " code"
  }], "ExampleSection",ExpressionUUID->"202bbb4f-2cb4-41bb-9b70-16c8a4b7c726"],
  $Line = 0; Null]], "ExampleSection",
 CellChangeTimes->{{3.738343560223235*^9, 3.738343565018454*^9}, 
   3.738378304498225*^9, 3.73857110137096*^9},
 CellID->372258994,ExpressionUUID->"07d36d1d-c06c-4f87-8f40-8647769062b3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetAtomicScatteringFactors", "::", "source"}], "=", 
   "\"\<Invalid data source option.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GetAtomicScatteringFactors", "::", "missing"}], "=", 
   "\"\<\[LeftGuillemet]`1`\[RightGuillemet] is missing in data source for \
the `2`.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GetAtomicScatteringFactors", "::", "slRequired"}], "=", 
   "\"\<Crystal name or Sin[\[Theta]]/\[Lambda] values required.\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"GetAtomicScatteringFactors", "::", "slRange"}], "=", 
    "\"\<The value `1` \!\(\*SuperscriptBox[\(\[CapitalARing]\), \(-1\)]\) is \
out of range for the f0 source `2`.\>\""}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Options", "@", "GetAtomicScatteringFactors"}], "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<DispersionCorrections\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<f0Source\>\"", "\[Rule]", "\"\<WaasmaierKirfel\>\""}], ",",
       "\[IndentingNewLine]", 
      RowBox[{"\"\<f1f2Source\>\"", "\[Rule]", "\"\<CromerLiberman\>\""}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<IgnoreIonCharge\>\"", "\[Rule]", "True"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<SeparateCorrections\>\"", "\[Rule]", "False"}]}], 
     "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SyntaxInformation", "@", "GetAtomicScatteringFactors"}], "=", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"\"\<ArgumentsPattern\>\"", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"_", ",", "_", ",", "_.", ",", 
       RowBox[{"OptionsPattern", "[", "]"}]}], "}"}]}], "\[IndentingNewLine]",
     "}"}]}], ";"}]}], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.685419009402873*^9, 3.685419029744906*^9}, {
   3.7125579359845037`*^9, 3.7125579398401833`*^9}, {3.712558012825982*^9, 
   3.712558016365078*^9}, {3.712558329822263*^9, 3.712558336510482*^9}, 
   3.7190631067759323`*^9, {3.7190632013232603`*^9, 3.719063246833488*^9}, {
   3.719063683402504*^9, 3.719063702743443*^9}, 3.719064421775221*^9, {
   3.719064571481073*^9, 3.7190645880804996`*^9}, 3.719081603083643*^9, {
   3.721116109499786*^9, 3.721116109669585*^9}, {3.721116270843298*^9, 
   3.721116293378092*^9}, {3.721118253561348*^9, 3.721118283400021*^9}, {
   3.7219790998464947`*^9, 3.721979108957181*^9}, {3.721979808508971*^9, 
   3.721979808678824*^9}, {3.7220628094983597`*^9, 3.722062820951103*^9}, {
   3.727243953544322*^9, 3.7272439559577703`*^9}, 3.72724401051222*^9, {
   3.7275499818549232`*^9, 3.727549987372429*^9}, {3.73530062366187*^9, 
   3.735300624212389*^9}, {3.737968443951145*^9, 3.737968443986042*^9}, {
   3.738033298568212*^9, 3.738033315017757*^9}, {3.7380336856293583`*^9, 
   3.738033688741171*^9}, {3.738033775094706*^9, 3.738033896732421*^9}, 
   3.738044095733487*^9, 3.73837483731066*^9, {3.738377190650757*^9, 
   3.738377219040332*^9}, {3.7389895484485607`*^9, 3.7389895490286427`*^9}, {
   3.73912287327794*^9, 3.739122879307662*^9}, {3.739123332751502*^9, 
   3.739123336915341*^9}, {3.742836431091338*^9, 3.742836481639064*^9}, {
   3.74283683011233*^9, 3.742836833782606*^9}, {3.742837103929655*^9, 
   3.742837111560454*^9}, {3.742837486368683*^9, 3.742837490095265*^9}, {
   3.743865850503646*^9, 3.743865850653304*^9}, {3.7567109504828167`*^9, 
   3.7567109663176193`*^9}},
 CellLabel->"In[648]:=",
 CellID->1306231809,ExpressionUUID->"671e67d4-0338-4393-9446-a6fd24118726"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetAtomicScatteringFactors", "[", "\[IndentingNewLine]", 
   RowBox[{
   "crystal_String", ",", "\[IndentingNewLine]", "hklInput_List", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"input\[Lambda]", ":", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"NumericQ", "[", "#", "]"}], "||", 
         RowBox[{"QuantityQ", "[", "#", "]"}]}], "&"}], ")"}]}], ":", 
     RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Lambda]", "=", "input\[Lambda]"}], ",", "hkl", ",", 
      "elements", ",", "sl", ",", "options"}], "}"}], ",", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", "Basic", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"Crystal", " ", "and", " ", 
      RowBox[{"wavelength", "/", "energy"}]}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Lambda]", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{
       "\"\<ProcessWavelength\>\"", ",", "crystal", ",", "\[Lambda]", ",", 
        "False"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Reflection", 
       RowBox[{"(", "s", ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"hkl", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{
       "hklInput", ",", "\"\<WrapSingle\>\"", ",", "\"\<Integer\>\""}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Processing", " ", "elements"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"elements", "=", 
      RowBox[{"GetElements", "[", 
       RowBox[{"crystal", ",", 
        RowBox[{"\"\<Tally\>\"", "\[Rule]", "False"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"Remove", " ", "charge", " ", "of", " ", "ions"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"OptionValue", "[", "\"\<IgnoreIonCharge\>\"", "]"}], ",", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"elements", "=", 
        RowBox[{"DeleteDuplicates", "@", "\[IndentingNewLine]", "\t", 
         RowBox[{"StringDelete", "[", 
          RowBox[{"elements", ",", "\[IndentingNewLine]", "\t", 
           RowBox[{"{", 
            RowBox[{"DigitCharacter", ",", "\"\<+\>\"", ",", "\"\<-\>\""}], 
            "}"}]}], "]"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "/", "\[Lambda]"}], " ", "*)"}],
      "\[IndentingNewLine]", 
     RowBox[{"H", "=", 
      RowBox[{"Chop", "@", 
       RowBox[{"N", "@", 
        RowBox[{"Inverse", "@", 
         RowBox[{"GetCrystalMetric", "[", "crystal", "]"}]}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sl", "=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sqrt", "[", 
          RowBox[{"#", ".", "H", ".", "#"}], "]"}], "/", "2."}], "&"}], "/@", 
       "hkl"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Relaying", " ", "data", " ", "to", " ",
        "main", " ", "function", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"options", "=", 
      RowBox[{
       RowBox[{
        RowBox[{"#", "\[Rule]", 
         RowBox[{"OptionValue", "[", "#", "]"}]}], "&"}], "/@", 
       "\[IndentingNewLine]", 
       RowBox[{"Keys", "@", 
        RowBox[{"Options", "@", "GetAtomicScatteringFactors"}]}]}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"GetAtomicScatteringFactors", "[", 
      RowBox[{"elements", ",", "sl", ",", "\[Lambda]", ",", 
       RowBox[{"Sequence", "@@", "options"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.738989411700222*^9, 3.7389894703928623`*^9}, 
   3.7389895343950033`*^9, {3.739029454453026*^9, 3.739029456444997*^9}, {
   3.7390294877647667`*^9, 3.7390294956530647`*^9}, {3.739029646544499*^9, 
   3.739029646943084*^9}, {3.7390298191600237`*^9, 3.739029819507209*^9}, {
   3.7390298759303627`*^9, 3.739029876202117*^9}, {3.739029943482131*^9, 
   3.739029944952951*^9}, {3.7390304120579443`*^9, 3.739030416064248*^9}, {
   3.7390305372605953`*^9, 3.7390305987622757`*^9}, {3.739030733247385*^9, 
   3.739030855731241*^9}, {3.739067582047143*^9, 3.73906758245932*^9}, {
   3.739067624590288*^9, 3.7390676362436237`*^9}, {3.739067930645776*^9, 
   3.739067952733529*^9}, {3.739068052660912*^9, 3.739068131969618*^9}, {
   3.7390686573589497`*^9, 3.7390686762449627`*^9}, {3.739070614123968*^9, 
   3.7390706179920053`*^9}, {3.739070671409206*^9, 3.739070709350171*^9}, {
   3.7390915530140953`*^9, 3.739091562318021*^9}, {3.7390917410760517`*^9, 
   3.739091742376841*^9}, {3.73909183390029*^9, 3.739091834556602*^9}, {
   3.739092703120399*^9, 3.739092717995928*^9}, {3.739092892829237*^9, 
   3.73909291572052*^9}, {3.739093000100039*^9, 3.739093000439804*^9}, {
   3.739093050480298*^9, 3.7390930522227297`*^9}, {3.739122449036809*^9, 
   3.73912245066613*^9}, {3.739124954088542*^9, 3.739124955982615*^9}, {
   3.739126141134688*^9, 3.739126155128496*^9}, {3.7428354928371267`*^9, 
   3.742835505521462*^9}, {3.742837884031802*^9, 3.742837886711232*^9}, {
   3.7438658506946383`*^9, 3.7438658507734423`*^9}, 3.744034734712717*^9, {
   3.7595193372472153`*^9, 3.7595193379646807`*^9}, 3.762793093248846*^9, {
   3.786968327932839*^9, 3.786968329463501*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[655]:=",
 CellID->112690582,ExpressionUUID->"1f3b4a7b-7974-473e-8134-77cd1a52f8f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"GetAtomicScatteringFactors", "[", "\[IndentingNewLine]", 
   RowBox[{
   "inputElements_List", ",", "\[IndentingNewLine]", "inputSL_List", ",", 
    "\[IndentingNewLine]", 
    RowBox[{"input\[Lambda]", ":", 
     RowBox[{"_", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"NumericQ", "[", "#", "]"}], "||", 
         RowBox[{"QuantityQ", "[", "#", "]"}]}], "&"}], ")"}]}], ":", 
     RowBox[{"-", "1"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Lambda]", "=", "input\[Lambda]"}], ",", 
      RowBox[{"elements", "=", "inputElements"}], ",", 
      RowBox[{"sl", "=", "inputSL"}], ",", "\[IndentingNewLine]", "f0Source", 
      ",", "f1f2Source", ",", "$f0Local", ",", "$f1f2Local", ",", 
      "\[IndentingNewLine]", "upperLimit", ",", "ignore", ",", 
      "\[IndentingNewLine]", 
      RowBox[{"addCorrectionsQ", "=", 
       RowBox[{"TrueQ", "@", 
        RowBox[{
        "OptionValue", "[", "\"\<DispersionCorrections\>\"", "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"separateQ", "=", 
       RowBox[{"TrueQ", "@", 
        RowBox[{"OptionValue", "[", "\"\<SeparateCorrections\>\"", "]"}]}]}], 
      ",", "\[IndentingNewLine]", "ipfQ", ",", "\[IndentingNewLine]", 
      "coefficients", ",", "akeys", ",", "bkeys", ",", "a", ",", "b", ",", 
      "c", ",", "\[IndentingNewLine]", "f0", ",", "corrections", ",", 
      "output", ",", "\[IndentingNewLine]", "temp"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"--", "-"}], "*", " ", "Checking", " ", "input", " ", "*", 
      RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
    RowBox[{"(*", " ", "Elements", " ", "*)"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"elements", "=", 
      RowBox[{"InputCheck", "[", 
       RowBox[{"\"\<InterpretElement\>\"", ",", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", "elements", "}"}], "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "/", "\[Lambda]"}], " ", "*)"}],
      "\[IndentingNewLine]", 
     RowBox[{"sl", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{"{", "sl", "}"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"AllTrue", "[", 
         RowBox[{"sl", ",", 
          RowBox[{
           RowBox[{"TrueQ", "@", 
            RowBox[{"Not", "@", 
             RowBox[{"Negative", "[", "#", "]"}]}]}], "&"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"GetAtomicScatteringFactors", "::", "slRequired"}], "]"}], 
        ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "Wavelength", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Lambda]", "\[NotEqual]", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"\[Lambda]", "=", 
        RowBox[{"QuantityMagnitude", "@", "\[IndentingNewLine]", 
         RowBox[{"InputCheck", "[", 
          RowBox[{"\"\<GetEnergyWavelength\>\"", ",", "\[Lambda]"}], 
          "]"}]}]}]}], "]"}], ";", "\t", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Data", " ", "sources"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{"f0Source", "=", 
      RowBox[{"OptionValue", "[", "\"\<f0Source\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"f1f2Source", "=", 
      RowBox[{"OptionValue", "[", "\"\<f1f2Source\>\"", "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ignore", "=", 
      RowBox[{"{", 
       RowBox[{"\"\<H\>\"", ",", "\"\<He\>\""}], "}"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Validating", " ", "sources"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"!", 
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"FileBaseName", "/@", 
            RowBox[{"FileNames", "[", 
             RowBox[{"\"\<*.m\>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"FileNameJoin", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
                 "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\""}], 
                "}"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
           "f0Source"}], "]"}]}], "||", "\[IndentingNewLine]", "\t", 
        RowBox[{"!", 
         RowBox[{"MemberQ", "[", 
          RowBox[{
           RowBox[{"FileBaseName", "/@", 
            RowBox[{"FileNames", "[", 
             RowBox[{"\"\<*.m\>\"", ",", "\[IndentingNewLine]", 
              RowBox[{"FileNameJoin", "[", 
               RowBox[{"{", "\[IndentingNewLine]", 
                RowBox[{
                "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
                 "\[IndentingNewLine]", "\"\<AtomicScatteringFactor\>\"", 
                 ",", "\"\<AnomalousCorrections\>\""}], "}"}], "]"}]}], 
             "]"}]}], ",", "\[IndentingNewLine]", "f1f2Source"}], "]"}]}]}], 
       ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{"GetAtomicScatteringFactors", "::", "source"}], "]"}], ";", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Useful", " ", "variables", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Check", " ", "specific", " ", "range", " ", "limits"}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"upperLimit", "=", 
      RowBox[{"Which", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"f0Source", "===", "\"\<CromerMann\>\""}], ",", "1.5", ",", 
        "\[IndentingNewLine]", 
        RowBox[{"f0Source", "===", "\"\<InternationalTablesC(3rd)\>\""}], ",",
         "2.0", ",", "\[IndentingNewLine]", 
        RowBox[{"f0Source", "===", "\"\<WaasmaierKirfel\>\""}], ",", "6.0", 
        ",", "\[IndentingNewLine]", "True", ",", "2.5"}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"temp", "=", 
         RowBox[{
         "sl", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"temp", ">", "upperLimit"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{"GetAtomicScatteringFactors", "::", "slRange"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"ToString", "@", "temp"}], ",", "f0Source"}], "]"}], ";",
            "\[IndentingNewLine]", 
           RowBox[{"Abort", "[", "]"}]}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "sl"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Loading", " ", "source", " ", "for", " ", "calculating", " ", "f0"}], 
      " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Setup", " ", "accumulative", " ", "variable", " ", "for", " ", "the", 
       " ", "session"}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"AssociationQ", "@", "$f0"}]}], ",", 
       RowBox[{"$f0", "=", 
        RowBox[{"<|", "|>"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"a", ".", " ", "Check"}], " ", "if", " ", "same", " ", 
        "source", " ", "is", " ", "imported", " ", "already"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{"KeyExistsQ", "[", 
        RowBox[{"$f0", ",", "f0Source"}], "]"}], ",", "\[IndentingNewLine]", 
       "\t", 
       RowBox[{"$f0Local", "=", 
        RowBox[{"$f0", "[", "f0Source", "]"}]}], ",", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"b", ".", " ", "Import"}], " ", "specified", " ", "data"}], 
        " ", "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"$f0Local", "=", 
         RowBox[{"Import", "@", 
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", "\[IndentingNewLine]", "\t", 
            RowBox[{
            "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
             "\[IndentingNewLine]", "\t", "\"\<AtomicScatteringFactor\>\"", 
             ",", 
             RowBox[{"f0Source", "<>", "\"\<.m\>\""}]}], "}"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", "\t\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Update", " ", "the", " ", "accumulative", " ", "variable"}],
          " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"$f0", ",", 
          RowBox[{"f0Source", "\[Rule]", "$f0Local"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "\t", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Check", " ", "if", " ", "atom", " ", "types", " ", "are", " ", "found",
        " ", "in", " ", "$f0", " ", "source"}], " ", "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"temp", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{"elements", ",", 
        RowBox[{"Keys", "@", "$f0Local"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"temp", "=!=", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"GetAtomicScatteringFactors", "::", "missing"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"First", "@", "temp"}], ",", 
          "\"\<non-dispersive part \
(\!\(TraditionalForm\`\*SubscriptBox[\(f\), \(0\)]\))\>\""}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Calculating", " ", "form", " ", 
       "factor", " ", 
       RowBox[{"(", "f0", ")"}], " ", "from", " ", "tabulated", " ", "data", 
       " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"ipfQ", "=", 
      RowBox[{
       RowBox[{"Head", "@", 
        RowBox[{"First", "@", "$f0Local"}]}], "===", 
       "InterpolatingFunction"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Which", "[", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"a", ".", " ", "Interpolation"}], " ", "data"}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{"sin", 
        RowBox[{
         RowBox[{"(", "\[Theta]", ")"}], "/", "\[Lambda]"}]}], " ", "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"ipfQ", ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Non", "-", 
         RowBox[{
         "dispersive", " ", "part", " ", "of", " ", "form", " ", "factor"}]}],
         " ", "*)"}], "\[IndentingNewLine]", "\t", 
       RowBox[{"f0", "=", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"X", ",", 
            RowBox[{
             RowBox[{"$f0Local", "[", "X", "]"}], "[", "s", "]"}]}], "}"}], 
          ",", "\[IndentingNewLine]", "\t", 
          RowBox[{"{", 
           RowBox[{"s", ",", "sl"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"X", ",", "elements"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{"b", ".", " ", "Coefficients"}], " ", "*)"}], 
       "\[IndentingNewLine]", "True", ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Stored", " ", "with", " ", 
         RowBox[{"alternating", " ", "'"}], 
         RowBox[{"a", "'"}], " ", 
         RowBox[{"and", " ", "'"}], 
         RowBox[{"b", "'"}], "\[IndentingNewLine]", "\t", 
         RowBox[{"and", " ", "'"}], 
         RowBox[{"c", "'"}], " ", "last"}], " ", "*)"}], "\t\t", 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"coefficients", "=", 
         RowBox[{
         "$f0Local", "\[LeftDoubleBracket]", "elements", 
          "\[RightDoubleBracket]"}]}], ";", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"akeys", ",", "bkeys"}], "}"}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{"Flatten", "@", 
            RowBox[{"StringCases", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Keys", "@", 
               RowBox[{"First", "@", "coefficients"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"#", "~~", 
               RowBox[{"DigitCharacter", ".."}]}]}], "]"}]}], "&"}], "/@", 
          RowBox[{"{", 
           RowBox[{"\"\<a\>\"", ",", "\"\<b\>\""}], "}"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"a", ",", "b", ",", "c"}], "}"}], "=", 
         RowBox[{"{", "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"Values", "/@", 
            RowBox[{"coefficients", "\[LeftDoubleBracket]", 
             RowBox[{"All", ",", "akeys"}], "\[RightDoubleBracket]"}]}], ",", 
           "\[IndentingNewLine]", "\t", 
           RowBox[{"Values", "/@", 
            RowBox[{"coefficients", "\[LeftDoubleBracket]", 
             RowBox[{"All", ",", "bkeys"}], "\[RightDoubleBracket]"}]}], ",", 
           "\[IndentingNewLine]", "\t", 
           RowBox[{"Values", "@", 
            RowBox[{"coefficients", "\[LeftDoubleBracket]", 
             RowBox[{"All", ",", "\"\<c\>\""}], "\[RightDoubleBracket]"}]}]}],
           "}"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Non", "-", 
          RowBox[{
          "dispersive", " ", "part", " ", "of", " ", "form", " ", 
           "factor"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t", 
        RowBox[{"f0", "=", 
         RowBox[{"Table", "[", "\[IndentingNewLine]", "\t", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Keys", "[", "coefficients", "]"}], 
              "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], ",", 
             "\[IndentingNewLine]", "\t", 
             RowBox[{
              RowBox[{"Total", "[", 
               RowBox[{
                RowBox[{
                "a", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}], 
                "*", 
                RowBox[{"Exp", "[", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{
                   "b", "\[LeftDoubleBracket]", "i", 
                    "\[RightDoubleBracket]"}]}], "*", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{
                    "sl", "\[LeftDoubleBracket]", "j", 
                    "\[RightDoubleBracket]"}], ")"}], "2"]}], "]"}]}], "]"}], 
              "+", 
              RowBox[{
              "c", "\[LeftDoubleBracket]", "i", "\[RightDoubleBracket]"}]}]}],
             "}"}], ",", "\[IndentingNewLine]", "\t", 
           RowBox[{"{", 
            RowBox[{"j", ",", 
             RowBox[{"Length", "@", "sl"}]}], "}"}], ",", 
           "\[IndentingNewLine]", "\t", 
           RowBox[{"{", 
            RowBox[{"i", ",", 
             RowBox[{"Length", "@", "elements"}]}], "}"}]}], "]"}]}]}]}], 
      "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"Check", ":", " ", 
       RowBox[{
       "Correct", " ", "normalisation", " ", "by", " ", "electrons"}]}], " ", 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{"ipfQ", ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"$f0Local", "[", "\"\<C\>\"", "]"}], "[", "0", "]"}], 
            ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Total", "@", 
              RowBox[{"Values", "@", 
               RowBox[{"$f0Local", "\[LeftDoubleBracket]", 
                RowBox[{"\"\<C\>\"", ",", "akeys"}], 
                "\[RightDoubleBracket]"}]}]}], "\[IndentingNewLine]", "+", 
             RowBox[{"$f0Local", "[", 
              RowBox[{"\"\<C\>\"", ",", "\"\<c\>\""}], "]"}]}]}], "]"}], "-", 
          "6"}], 
         RowBox[{"(*", " ", 
          RowBox[{
           RowBox[{"Carbon", ":", " ", "Z"}], "=", "6"}], " ", "*)"}], "]"}], 
        ">", "0.5"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"f0", "=", 
        RowBox[{"f0", "/.", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"X_String", ",", 
            RowBox[{"f_", "?", "NumericQ"}]}], "}"}], "\[RuleDelayed]", 
          RowBox[{"{", 
           RowBox[{"X", ",", 
            RowBox[{"f", "*", 
             RowBox[{"$PeriodicTable", "[", 
              RowBox[{"X", ",", "\"\<AtomicNumber\>\""}], "]"}]}]}], 
           "}"}]}]}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Dispersion", " ", "corrections", " ", 
       RowBox[{"(", 
        RowBox[{"f1", " ", "+", " ", "f2"}], ")"}], " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{"Optional", ":", " ", 
       RowBox[{"No", " ", "dispersion", " ", "corrections"}]}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"\[Lambda]", "===", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"addCorrectionsQ", "=", "False"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", "addCorrectionsQ"}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{"(*", " ", 
        RowBox[{"Prepare", " ", "output"}], " ", "*)"}], 
       "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"output", "=", 
         RowBox[{"Map", "[", 
          RowBox[{"Association", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"MapThread", "[", 
              RowBox[{"Rule", ",", 
               RowBox[{"Transpose", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
            "f0"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"Goto", "[", "\"\<End\>\"", "]"}]}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{
       "Loading", " ", "source", " ", "for", " ", "calculating", " ", 
        RowBox[{"f", "'"}]}], " ", "+", " ", 
       RowBox[{"f", "''"}]}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Setup", " ", "global", " ", "variable", " ", "for", " ", "the", " ", 
       "session"}], " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"AssociationQ", "@", "$f1f2"}]}], ",", 
       RowBox[{"$f1f2", "=", 
        RowBox[{"<|", "|>"}]}]}], "]"}], ";", "\[IndentingNewLine]", "\t\t", 
     RowBox[{"If", "[", "\[IndentingNewLine]", "\t\t", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"a", ".", " ", "Check"}], " ", "if", " ", "same", " ", 
        "source", " ", "is", " ", "imported", " ", "already"}], " ", "*)"}], 
      "\[IndentingNewLine]", "\t\t", 
      RowBox[{
       RowBox[{"KeyExistsQ", "[", 
        RowBox[{"$f1f2", ",", "f1f2Source"}], "]"}], ",", 
       "\[IndentingNewLine]", "\t\t", 
       RowBox[{"$f1f2Local", "=", 
        RowBox[{"$f1f2", "[", "f1f2Source", "]"}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\t\t", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"b", ".", " ", "Import"}], " ", "specified", " ", "data"}], 
        " ", "*)"}], "\[IndentingNewLine]", "\t\t", 
       RowBox[{
        RowBox[{"$f1f2Local", "=", 
         RowBox[{"Import", "@", 
          RowBox[{"FileNameJoin", "[", 
           RowBox[{"{", "\[IndentingNewLine]", "\t", 
            RowBox[{
            "$MaXrdPath", ",", "\"\<Core\>\"", ",", "\"\<Data\>\"", ",", 
             "\[IndentingNewLine]", "\t", "\"\<AtomicScatteringFactor\>\"", 
             ",", "\"\<AnomalousCorrections\>\"", ",", "\[IndentingNewLine]", 
             "\t", 
             RowBox[{"f1f2Source", "<>", "\"\<.m\>\""}]}], "}"}], "]"}]}]}], 
        ";", "\[IndentingNewLine]", "\t\t\t", 
        RowBox[{"(*", " ", 
         RowBox[{"Update", " ", "the", " ", 
          RowBox[{"session", "'"}], "s", " ", "global", " ", "variable"}], 
         " ", "*)"}], "\[IndentingNewLine]", "\t\t\t", 
        RowBox[{"AppendTo", "[", 
         RowBox[{"$f1f2", ",", 
          RowBox[{"f1f2Source", "\[Rule]", "$f1f2Local"}]}], "]"}]}]}], 
      "\[IndentingNewLine]", "\t\t", "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", 
      RowBox[{
      "Check", " ", "if", " ", "atom", " ", "types", " ", "are", " ", "found",
        " ", "in", " ", "$f1f2", " ", "source"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"Complement", "[", 
       RowBox[{"elements", ",", 
        RowBox[{"Keys", "@", "$f1f2Local"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"temp", "=", 
      RowBox[{"temp", "/.", 
       RowBox[{"Thread", "[", 
        RowBox[{"ignore", "\[Rule]", "Nothing"}], "]"}]}]}], ";", 
     RowBox[{"(*", " ", 
      RowBox[{"ignored", " ", "elements"}], " ", "*)"}], 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"temp", "=!=", 
        RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", "\t", 
       RowBox[{
        RowBox[{"Message", "[", 
         RowBox[{
          RowBox[{"GetAtomicScatteringFactors", "::", "missing"}], ",", 
          "\[IndentingNewLine]", "\t", 
          RowBox[{"First", "@", "temp"}], ",", 
          "\"\<dispersion corrections \
(\!\(\*FormBox[RowBox[{SuperscriptBox[\"f\", \
\"\[Prime]\",MultilineFunction->None], \"+\", SuperscriptBox[\"f\", \
\"\[Prime]\[Prime]\",MultilineFunction->None]}],TraditionalForm]\))\>\""}], 
         "]"}], ";", "\[IndentingNewLine]", "\t", 
        RowBox[{"Abort", "[", "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", "\t", 
     RowBox[{"(*", " ", "Procedure", " ", "*)"}], "\[IndentingNewLine]", "\t", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", "\t", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{"ignore", ",", 
            RowBox[{
            "elements", "\[LeftDoubleBracket]", "j", 
             "\[RightDoubleBracket]"}]}], "]"}], ",", 
          RowBox[{"Continue", "[", "]"}]}], "]"}], ";", "\[IndentingNewLine]",
         "\t", 
        RowBox[{"corrections", "=", 
         RowBox[{
          RowBox[{"$f1f2Local", "[", 
           RowBox[{
           "elements", "\[LeftDoubleBracket]", "j", "\[RightDoubleBracket]"}],
            "]"}], "[", "\[Lambda]", "]"}]}], ";", "\[IndentingNewLine]", 
        "\t", 
        RowBox[{"AppendTo", "[", 
         RowBox[{
          RowBox[{"f0", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], ",", 
          "corrections"}], "]"}]}], ",", "\[IndentingNewLine]", "\t\t", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "@", "sl"}]}], "}"}], ",", "\[IndentingNewLine]", 
       "\t\t", 
       RowBox[{"{", 
        RowBox[{"j", ",", 
         RowBox[{"Length", "@", "elements"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"--", "-"}], "*", " ", "Preparing", " ", "and", " ", 
       "returning", " ", "association", " ", "*", 
       RowBox[{"--", "-"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{"separateQ", ",", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"a", ".", " ", "Return"}], " ", "f0", " ", "and", " ", 
         "f1f2", " ", "separated"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"f0", "=", 
        RowBox[{"f0", "/.", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{"Elements", " ", "with", " ", "corrections"}], " ", "*)"}],
           "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X_String", ",", 
              RowBox[{"f0_", "?", "NumericQ"}], ",", 
              RowBox[{"f1f2_", "?", "NumericQ"}]}], "}"}], "\[RuleDelayed]", 
            "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{"X", "\[Rule]", 
              RowBox[{"<|", 
               RowBox[{
                RowBox[{"\"\<f0\>\"", "\[Rule]", "f0"}], ",", 
                RowBox[{"\"\<f1f2\>\"", "\[Rule]", "f1f2"}]}], "|>"}]}], 
             ")"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"Without", " ", "corrections", " ", 
             RowBox[{"(", 
              RowBox[{"ignored", " ", "elements"}], ")"}]}], " ", "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X_String", ",", 
              RowBox[{"f0_", "?", "NumericQ"}]}], "}"}], "\[RuleDelayed]", 
            RowBox[{"(", 
             RowBox[{"X", "\[Rule]", 
              RowBox[{"<|", 
               RowBox[{
                RowBox[{"\"\<f0\>\"", "\[Rule]", "f0"}], ",", 
                RowBox[{"\"\<f1f2\>\"", "\[Rule]", "0."}]}], "|>"}]}], 
             ")"}]}]}], "\[IndentingNewLine]", "}"}]}]}], ",", 
       "\[IndentingNewLine]", "\[IndentingNewLine]", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"b", ".", " ", "Return"}], " ", "f0", " ", "and", " ", 
         "f1f2", " ", "combined"}], " ", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"f0", "=", 
        RowBox[{"f0", "/.", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{"Elements", " ", "with", " ", "corrections"}], " ", "*)"}],
           "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X_String", ",", 
              RowBox[{"f0_", "?", "NumericQ"}], ",", 
              RowBox[{"f1f2_", "?", "NumericQ"}]}], "}"}], "\[RuleDelayed]", 
            "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{"X", "\[Rule]", 
              RowBox[{"f0", "+", "f1f2"}]}], ")"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", " ", 
            RowBox[{"Without", " ", "corections", " ", 
             RowBox[{"(", 
              RowBox[{"ignored", " ", "elements"}], ")"}]}], " ", "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X_String", ",", 
              RowBox[{"f0_", "?", "NumericQ"}]}], "}"}], "\[RuleDelayed]", 
            RowBox[{"(", 
             RowBox[{"X", "\[Rule]", "f0"}], ")"}]}]}], "\[IndentingNewLine]",
           "}"}]}]}]}], "\[IndentingNewLine]", "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"output", "=", 
      RowBox[{"Association", "/@", "f0"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"Label", "[", "\"\<End\>\"", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Length", "@", "output"}], "\[Equal]", "1"}], ",", 
       RowBox[{"First", "@", "output"}], ",", "output"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->False,
 CellChangeTimes->{{3.682241896337058*^9, 3.6822419009563293`*^9}, {
   3.6822421030731297`*^9, 3.682242104796829*^9}, {3.682242247634622*^9, 
   3.682242293608499*^9}, {3.6822423242774973`*^9, 3.6822424939877663`*^9}, {
   3.682242524871819*^9, 3.682242610095582*^9}, {3.6822426631468697`*^9, 
   3.682242849688897*^9}, {3.682242985123843*^9, 3.682243000592795*^9}, {
   3.682243032221999*^9, 3.682243042906146*^9}, {3.682243121993319*^9, 
   3.682243187533738*^9}, {3.6822433171568623`*^9, 3.682243318068676*^9}, {
   3.6822433533711243`*^9, 3.68224345949043*^9}, {3.682243499999116*^9, 
   3.682243500570818*^9}, {3.682243559642397*^9, 3.682243568303032*^9}, {
   3.682243656585619*^9, 3.682243807041559*^9}, {3.682243892622666*^9, 
   3.682243979341007*^9}, {3.682244011749632*^9, 3.682244092729911*^9}, {
   3.6822441869470167`*^9, 3.682244221175058*^9}, {3.68224427065597*^9, 
   3.682244283409008*^9}, {3.6822443160128517`*^9, 3.682244326447394*^9}, {
   3.682244392020493*^9, 3.682244400571671*^9}, {3.682244596208706*^9, 
   3.682244803339835*^9}, {3.682244951115906*^9, 3.6822449654470167`*^9}, {
   3.682247256239483*^9, 3.682247304444981*^9}, {3.682247343926553*^9, 
   3.682247361035624*^9}, {3.682247395780785*^9, 3.6822474984407682`*^9}, {
   3.6822475305652437`*^9, 3.682247636381772*^9}, {3.6822476807262373`*^9, 
   3.682247690229601*^9}, {3.682247723533629*^9, 3.682247825538166*^9}, {
   3.682247866195016*^9, 3.6822478768890457`*^9}, {3.682247927112714*^9, 
   3.682248080675892*^9}, {3.682248357004342*^9, 3.682248375626561*^9}, {
   3.6822486441315317`*^9, 3.682248669634107*^9}, 3.68224956936229*^9, 
   3.682262332986014*^9, {3.6822623719028997`*^9, 3.68226237223594*^9}, {
   3.682312281830681*^9, 3.6823123030407467`*^9}, {3.682323578349629*^9, 
   3.682323592418137*^9}, {3.6823237158461313`*^9, 3.682323721213748*^9}, 
   3.682327825752265*^9, {3.682327891309991*^9, 3.682327908905006*^9}, {
   3.682328462663025*^9, 3.682328464594318*^9}, {3.6823288379476137`*^9, 
   3.682328840375494*^9}, {3.6823289450420847`*^9, 3.682328948786008*^9}, 
   3.682329021553924*^9, {3.682329649608305*^9, 3.682329652832589*^9}, 
   3.6823298080835743`*^9, {3.682350312716905*^9, 3.682350378410404*^9}, 
   3.6823504635691757`*^9, {3.6823505010243587`*^9, 3.682350503583688*^9}, {
   3.68235624088593*^9, 3.68235624215532*^9}, {3.6824154065363083`*^9, 
   3.682415411290797*^9}, {3.6824949312809687`*^9, 3.682494933923278*^9}, {
   3.682494968776065*^9, 3.6824950015362787`*^9}, {3.682495062367214*^9, 
   3.6824950649247932`*^9}, {3.682495113046337*^9, 3.6824951159073544`*^9}, {
   3.68249526412218*^9, 3.682495265376318*^9}, {3.68249545065454*^9, 
   3.682495470163967*^9}, {3.682495512292554*^9, 3.682495515202944*^9}, {
   3.682495556347404*^9, 3.682495579369482*^9}, {3.6824958395091257`*^9, 
   3.682495843227323*^9}, {3.6824961499028397`*^9, 3.682496152773938*^9}, {
   3.682496263451882*^9, 3.682496267049795*^9}, {3.682496312064939*^9, 
   3.6824963159122458`*^9}, {3.682496526788476*^9, 3.682496526940209*^9}, {
   3.682496864685812*^9, 3.682496866861273*^9}, {3.682496942171248*^9, 
   3.68249696514644*^9}, 3.682497201839513*^9, {3.6824972729799232`*^9, 
   3.682497296643372*^9}, {3.6824973270838213`*^9, 3.68249734521832*^9}, 
   3.68268180724885*^9, {3.684128291025429*^9, 3.684128389624958*^9}, {
   3.68412845933915*^9, 3.684128486385932*^9}, {3.684128529353738*^9, 
   3.6841285582182617`*^9}, {3.6841288206899014`*^9, 3.684128901287672*^9}, {
   3.684128968928697*^9, 3.68412900913936*^9}, {3.6841292785084352`*^9, 
   3.684129357017983*^9}, {3.684129890723934*^9, 3.684129917971912*^9}, {
   3.6841300831135187`*^9, 3.684130083432626*^9}, {3.684138321122032*^9, 
   3.684138354809764*^9}, {3.684138494851803*^9, 3.6841385035605307`*^9}, {
   3.684138540043199*^9, 3.6841385752075777`*^9}, {3.685245928608788*^9, 
   3.685245936564748*^9}, {3.685292498644186*^9, 3.685292547209746*^9}, {
   3.685293229629302*^9, 3.685293257980389*^9}, {3.6852936989464273`*^9, 
   3.685293705920918*^9}, {3.685418988387327*^9, 3.6854191059404497`*^9}, 
   3.685765928283773*^9, {3.686654834485551*^9, 3.686654890223186*^9}, {
   3.6870719114095488`*^9, 3.687071942441597*^9}, {3.687073759256621*^9, 
   3.687073768483142*^9}, {3.7125582963506203`*^9, 3.712558305396607*^9}, {
   3.712559925957469*^9, 3.712559958639057*^9}, {3.7144624028419037`*^9, 
   3.71446242110505*^9}, {3.714462795136908*^9, 3.714462796079183*^9}, {
   3.7144629484210367`*^9, 3.714462949924136*^9}, {3.7147117501417923`*^9, 
   3.714711761681143*^9}, {3.714816107140924*^9, 3.714816126138484*^9}, {
   3.717740896691929*^9, 3.7177409196728354`*^9}, {3.717952009923753*^9, 
   3.7179520150663*^9}, {3.7179522469270687`*^9, 3.717952248741308*^9}, {
   3.7179527562586317`*^9, 3.7179527571544733`*^9}, {3.718544518737887*^9, 
   3.7185445547663393`*^9}, {3.718544588671667*^9, 3.718544588764153*^9}, {
   3.7185446206531773`*^9, 3.718544630189608*^9}, {3.718544762313016*^9, 
   3.718544814550006*^9}, {3.718544854669929*^9, 3.718544932380745*^9}, {
   3.718544962436681*^9, 3.718545027673493*^9}, {3.71854509931327*^9, 
   3.718545153141809*^9}, {3.7185453205399714`*^9, 3.718545412007901*^9}, {
   3.718545450896759*^9, 3.718545474214239*^9}, {3.718545507359365*^9, 
   3.718545544238356*^9}, {3.718616920438265*^9, 3.7186169486191177`*^9}, {
   3.718618101945353*^9, 3.718618175014943*^9}, {3.71861823134766*^9, 
   3.718618233851248*^9}, {3.718618432192004*^9, 3.71861847096095*^9}, {
   3.71861933868747*^9, 3.7186193433759203`*^9}, {3.718619375509334*^9, 
   3.718619496235456*^9}, {3.718619532771413*^9, 3.718619580864337*^9}, 
   3.718619728829987*^9, {3.718630103558402*^9, 3.7186301187980003`*^9}, {
   3.7186366955384483`*^9, 3.718636713785058*^9}, {3.7186374428406067`*^9, 
   3.7186374662234697`*^9}, {3.718656479247999*^9, 3.7186564858851337`*^9}, {
   3.718983804226858*^9, 3.71898380604974*^9}, 3.719062288435821*^9, {
   3.71906310678584*^9, 3.719063106792266*^9}, {3.719064122833111*^9, 
   3.719064129919709*^9}, {3.71906420106341*^9, 3.719064259852654*^9}, {
   3.719064297563863*^9, 3.719064496821637*^9}, {3.719064545749486*^9, 
   3.719064592700036*^9}, {3.719064642354143*^9, 3.71906476771029*^9}, {
   3.719064823557804*^9, 3.719065238482019*^9}, {3.719065277135886*^9, 
   3.719065303399061*^9}, {3.719065395813827*^9, 3.719065399308429*^9}, {
   3.719065437323184*^9, 3.7190654511549473`*^9}, {3.719065561170032*^9, 
   3.719065627343844*^9}, {3.719065670965363*^9, 3.719065959082838*^9}, {
   3.719065992179327*^9, 3.719066064234557*^9}, {3.719066151894588*^9, 
   3.719066207283177*^9}, {3.719066242019342*^9, 3.719066304096162*^9}, {
   3.719066351920788*^9, 3.719066359399228*^9}, {3.71906641432609*^9, 
   3.719066542108021*^9}, {3.719066589433022*^9, 3.7190665954992647`*^9}, {
   3.719067892506781*^9, 3.71906802254603*^9}, {3.719068084604827*^9, 
   3.719068291842124*^9}, {3.719068376944273*^9, 3.71906849841955*^9}, {
   3.719069206288807*^9, 3.719069218336574*^9}, {3.71906933199855*^9, 
   3.7190693337006483`*^9}, 3.719069638219943*^9, {3.719069709698402*^9, 
   3.719069710945162*^9}, {3.719070447671543*^9, 3.719070461169828*^9}, {
   3.7190705162010508`*^9, 3.719070528918353*^9}, 3.719081605979241*^9, {
   3.721111484659971*^9, 3.721111498639818*^9}, {3.721114454508944*^9, 
   3.721114476380396*^9}, {3.721116073710249*^9, 3.721116105096229*^9}, {
   3.721116139165756*^9, 3.7211161755548077`*^9}, {3.7211162447180643`*^9, 
   3.7211162652677107`*^9}, {3.721116304117589*^9, 3.721116355056438*^9}, {
   3.721116452754876*^9, 3.721116467221505*^9}, {3.7211169325691433`*^9, 
   3.7211170058057423`*^9}, {3.721117041112558*^9, 3.7211170477626753`*^9}, {
   3.721117332499308*^9, 3.7211173675329247`*^9}, {3.7211179516387444`*^9, 
   3.721117953257985*^9}, {3.7211180826882343`*^9, 3.721118171815936*^9}, {
   3.721118217999258*^9, 3.721118247833887*^9}, 3.7211182947294817`*^9, {
   3.72111835817647*^9, 3.721118370282798*^9}, 3.721118417964911*^9, {
   3.721118679807076*^9, 3.7211188691654882`*^9}, {3.721119001756874*^9, 
   3.721119004843071*^9}, {3.7213695267756367`*^9, 3.72136952711127*^9}, {
   3.7213696067684183`*^9, 3.721369607060883*^9}, 3.721369689533557*^9, {
   3.721369757784193*^9, 3.7213698829506197`*^9}, {3.721371083758843*^9, 
   3.7213710990474377`*^9}, {3.72137113797754*^9, 3.7213711507631893`*^9}, {
   3.7213711847212*^9, 3.721371188174782*^9}, {3.721371685952198*^9, 
   3.7213717065716248`*^9}, {3.721371766390019*^9, 3.7213719755300817`*^9}, {
   3.721372756009329*^9, 3.721372949382916*^9}, {3.721470172812934*^9, 
   3.721470178730687*^9}, {3.7214702679556103`*^9, 3.72147034954385*^9}, {
   3.7216675361871223`*^9, 3.721667588792684*^9}, {3.7217381025032473`*^9, 
   3.721738163898419*^9}, {3.7217381946470137`*^9, 3.721738227941464*^9}, {
   3.721738503929742*^9, 3.721738506861105*^9}, {3.721738837218*^9, 
   3.721738838966873*^9}, {3.721738890429645*^9, 3.721738905286234*^9}, {
   3.721738943252236*^9, 3.721738999644347*^9}, {3.721739033683166*^9, 
   3.7217390375656013`*^9}, {3.72173907096627*^9, 3.721739079289625*^9}, {
   3.721739320598371*^9, 3.721739348557314*^9}, {3.721739402271968*^9, 
   3.721739404192616*^9}, {3.7217394351329517`*^9, 3.7217394636473303`*^9}, 
   3.721978061389715*^9, 3.721978138688751*^9, {3.721978206640265*^9, 
   3.721978208092898*^9}, {3.7219785079842653`*^9, 3.721978509914443*^9}, {
   3.7219785635057592`*^9, 3.721978563662822*^9}, {3.721978732407447*^9, 
   3.7219787397994967`*^9}, {3.721978918989682*^9, 3.721978976909795*^9}, {
   3.721979165739716*^9, 3.721979210741995*^9}, 3.721979597187673*^9, {
   3.7219796310100183`*^9, 3.7219796891672897`*^9}, {3.7219798180589237`*^9, 
   3.721979818654977*^9}, {3.721979861140045*^9, 3.721979863917323*^9}, {
   3.721982886145628*^9, 3.721982890654036*^9}, 3.721983004540848*^9, 
   3.7219833873520203`*^9, {3.7220628751118727`*^9, 3.722062879005816*^9}, {
   3.722062917283605*^9, 3.7220629634710503`*^9}, {3.7220630332216253`*^9, 
   3.722063111337685*^9}, {3.7220631494555893`*^9, 3.7220631950136127`*^9}, {
   3.722063245677351*^9, 3.722063245754569*^9}, {3.7220632861497726`*^9, 
   3.722063298693756*^9}, {3.722063614430664*^9, 3.7220636503987513`*^9}, {
   3.722063724542623*^9, 3.7220638054642982`*^9}, {3.722063847312479*^9, 
   3.722063959471467*^9}, {3.722064007036425*^9, 3.722064008040326*^9}, {
   3.722064091453974*^9, 3.722064098537808*^9}, {3.7220642034603243`*^9, 
   3.722064223013564*^9}, {3.7220648781494017`*^9, 3.722064899648937*^9}, {
   3.722064959884466*^9, 3.722064997021698*^9}, {3.722070723902894*^9, 
   3.7220708235593147`*^9}, {3.7220710632953033`*^9, 
   3.7220710658061457`*^9}, {3.722071129589094*^9, 3.722071146534827*^9}, {
   3.722071669280542*^9, 3.722071765901602*^9}, {3.722071822272051*^9, 
   3.722071845683749*^9}, {3.722072164516849*^9, 3.722072167780717*^9}, {
   3.722073655169406*^9, 3.7220736617514887`*^9}, 3.722073805452601*^9, {
   3.72207386943486*^9, 3.722073870941247*^9}, {3.7220740869677896`*^9, 
   3.722074234766919*^9}, {3.722074642509527*^9, 3.722074668862341*^9}, {
   3.722074757686634*^9, 3.7220747595372257`*^9}, {3.72207490374716*^9, 
   3.7220749274001503`*^9}, {3.722074961839517*^9, 3.722074971593493*^9}, {
   3.722075008921195*^9, 3.722075018780717*^9}, {3.722075215353648*^9, 
   3.7220753120849047`*^9}, {3.722076994991275*^9, 3.722077069678069*^9}, {
   3.722077195062983*^9, 3.722077243822541*^9}, 3.7220772743854513`*^9, {
   3.722243649938464*^9, 3.7222437148647757`*^9}, 3.722243761880186*^9, {
   3.72224401456736*^9, 3.7222440921223297`*^9}, {3.7222441629239063`*^9, 
   3.722244206882749*^9}, {3.72224429108885*^9, 3.722244297037649*^9}, {
   3.722244469565585*^9, 3.722244493083477*^9}, {3.722244742617938*^9, 
   3.722244829576676*^9}, {3.722244864913772*^9, 3.722244865438043*^9}, {
   3.722244904946373*^9, 3.7222449065887117`*^9}, {3.7222449569000607`*^9, 
   3.722244985152135*^9}, {3.7222450326142883`*^9, 3.722245087078844*^9}, {
   3.722245211235154*^9, 3.722245324219537*^9}, {3.722245388354319*^9, 
   3.72224546123627*^9}, {3.722245564764122*^9, 3.722245602990396*^9}, {
   3.722245650062417*^9, 3.7222458427141237`*^9}, {3.7222459236619883`*^9, 
   3.722245925999093*^9}, {3.7222459577587442`*^9, 3.722246038452992*^9}, {
   3.722246068729703*^9, 3.7222461134808683`*^9}, 3.722246197289178*^9, {
   3.722246227722828*^9, 3.722246233988699*^9}, {3.722246466996821*^9, 
   3.722246489019541*^9}, {3.7222465272614803`*^9, 3.72224653182295*^9}, {
   3.722246623496787*^9, 3.7222466492769814`*^9}, {3.722246684608173*^9, 
   3.7222467872720537`*^9}, {3.722246865247857*^9, 3.722246897929769*^9}, {
   3.725450303231864*^9, 3.725450375874055*^9}, {3.7254506754329567`*^9, 
   3.7254506760393887`*^9}, {3.725617035799721*^9, 3.725617090660178*^9}, {
   3.726561272575226*^9, 3.726561274880137*^9}, {3.727190754853161*^9, 
   3.727190758466567*^9}, 3.7272440207193537`*^9, {3.727244062854665*^9, 
   3.7272440720571413`*^9}, {3.7272441062895412`*^9, 3.7272441219715643`*^9}, 
   3.727675291335369*^9, 3.727676784440756*^9, {3.727677723074018*^9, 
   3.7276777305774937`*^9}, {3.727677842605393*^9, 3.727677842848339*^9}, 
   3.7303792902468443`*^9, 3.7303795870483294`*^9, 3.730544161219339*^9, {
   3.735300592767964*^9, 3.735300700450007*^9}, {3.7353007716396646`*^9, 
   3.735300799957919*^9}, {3.73780662301538*^9, 3.737806623155034*^9}, {
   3.73780665691374*^9, 3.737806661938918*^9}, {3.737968444012001*^9, 
   3.737968466742126*^9}, {3.738033394156886*^9, 3.738033405133856*^9}, {
   3.738033463353322*^9, 3.738033466796254*^9}, {3.7380336179612617`*^9, 
   3.738033675235551*^9}, {3.738033907923669*^9, 3.7380339474822598`*^9}, {
   3.738034499039502*^9, 3.738034829837838*^9}, {3.738042804020746*^9, 
   3.7380428243889933`*^9}, 3.738042869407331*^9, {3.738044069175473*^9, 
   3.738044075665268*^9}, {3.738044587915038*^9, 3.738044609408504*^9}, {
   3.738374849526939*^9, 3.73837486611399*^9}, {3.738375561949725*^9, 
   3.7383755788616657`*^9}, {3.738376351336351*^9, 3.73837636721344*^9}, {
   3.73837648700519*^9, 3.738376504603709*^9}, {3.7383765957531567`*^9, 
   3.738376597048367*^9}, {3.738377383380872*^9, 3.7383774119624166`*^9}, {
   3.738377483068665*^9, 3.7383775471710443`*^9}, {3.738989535573518*^9, 
   3.738989564467999*^9}, {3.7390294441931458`*^9, 3.739029452581423*^9}, 
   3.73902948487638*^9, {3.7390305195750637`*^9, 3.7390305356373043`*^9}, {
   3.739030588203383*^9, 3.739030612183899*^9}, {3.739067426454228*^9, 
   3.739067431611511*^9}, {3.739067543213336*^9, 3.73906755042027*^9}, {
   3.7390677181533937`*^9, 3.739067809999744*^9}, {3.739068246421269*^9, 
   3.739068367918603*^9}, {3.73906846077668*^9, 3.73906848789557*^9}, {
   3.7390692568568907`*^9, 3.739069262310021*^9}, {3.73907016157126*^9, 
   3.739070228128346*^9}, {3.739070266641101*^9, 3.7390703796683273`*^9}, {
   3.73907043147178*^9, 3.739070482013937*^9}, {3.739070549748425*^9, 
   3.739070581456558*^9}, 3.739070651144397*^9, {3.7390707171014223`*^9, 
   3.739070888355019*^9}, {3.739070920225849*^9, 3.7390709932279167`*^9}, {
   3.739071046423064*^9, 3.739071106867024*^9}, {3.739071139516616*^9, 
   3.739071139644754*^9}, {3.7390712048593607`*^9, 3.739071214027072*^9}, {
   3.739091844973487*^9, 3.739091848421885*^9}, {3.739118949258746*^9, 
   3.73911895237396*^9}, {3.739122084305634*^9, 3.739122107394026*^9}, {
   3.739122175929167*^9, 3.739122197093604*^9}, {3.739122277093368*^9, 
   3.7391223277430763`*^9}, {3.7391223601992397`*^9, 3.739122427148471*^9}, {
   3.739122494574834*^9, 3.739122547036766*^9}, {3.7391225967208633`*^9, 
   3.739122868703513*^9}, {3.739122942628067*^9, 3.739122960537838*^9}, {
   3.739122996377776*^9, 3.739123025222269*^9}, {3.7391232755617447`*^9, 
   3.739123311458004*^9}, {3.739123345161305*^9, 3.7391234203204117`*^9}, {
   3.739123471040163*^9, 3.7391234988332644`*^9}, {3.739123583213578*^9, 
   3.7391236164442587`*^9}, {3.739123707773747*^9, 3.739123716331357*^9}, {
   3.739123838903887*^9, 3.73912390812017*^9}, {3.7391239656894083`*^9, 
   3.7391239800613203`*^9}, {3.739124013732561*^9, 3.7391240438900843`*^9}, {
   3.739124092146432*^9, 3.739124101163595*^9}, {3.7391242703740892`*^9, 
   3.7391243138881083`*^9}, {3.7391243821879387`*^9, 3.739124431664143*^9}, {
   3.739124645162651*^9, 3.7391246482649107`*^9}, 3.742836771505156*^9, {
   3.742836807056857*^9, 3.742836816961413*^9}, {3.742836880541464*^9, 
   3.742836967507223*^9}, {3.742837040956266*^9, 3.742837078243389*^9}, {
   3.742837238855632*^9, 3.742837258821867*^9}, {3.7428373668286657`*^9, 
   3.742837429504389*^9}, {3.7428374630660954`*^9, 3.742837470649785*^9}, {
   3.7428375176544447`*^9, 3.742837519601564*^9}, {3.7428376441124363`*^9, 
   3.7428376444445887`*^9}, {3.742839789437457*^9, 3.74283982100668*^9}, {
   3.742839878580009*^9, 3.7428398869376783`*^9}, {3.7428400477123137`*^9, 
   3.742840079988522*^9}, {3.7428793564906693`*^9, 3.742879357265019*^9}, {
   3.7438654119933443`*^9, 3.743865412153145*^9}, {3.743865850854823*^9, 
   3.7438658511023407`*^9}, 3.7440347878671427`*^9, {3.758529265067565*^9, 
   3.758529328654203*^9}, {3.7585293735907288`*^9, 3.75852938658265*^9}, {
   3.7595193416703978`*^9, 3.759519341922925*^9}, 3.762793093289785*^9, {
   3.78696833908181*^9, 3.7869683491996813`*^9}},
 Background->RGBColor[0.94, 0.91, 0.88],
 CellLabel->"In[656]:=",
 CellID->2057518667,ExpressionUUID->"af392140-ecdb-4f45-ac48-d41a6fe14edd"]
}, Closed]]
}, Open  ]]
},
WindowSize->Medium,
WindowMargins->Automatic,
Visible->True,
CellContext->"Global`",
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 5, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[41122, 1104, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"bb412e21-89f2-4415-84fe-9b504c0126df",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 230350, 5015}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 600, 14, 24, "History",ExpressionUUID->"c241e7bd-c40c-4140-b24e-753bf8212f8e",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[1183, 38, 123, 1, 29, "CategorizationSection",ExpressionUUID->"b28e4395-c631-4643-b307-ba5d7636bc93",
 CellID->1122911449],
Cell[1309, 41, 134, 2, 30, "Categorization",ExpressionUUID->"5ee880ff-2b92-4f6f-b83f-561dd842cc99",
 CellID->686433507],
Cell[1446, 45, 175, 3, 30, "Categorization",ExpressionUUID->"f587f670-d10a-474e-8d21-e0503d4379bb",
 CellID->605800465],
Cell[1624, 50, 172, 3, 30, "Categorization",ExpressionUUID->"aa2df1ac-3860-4133-9bcf-fc6793ff0369",
 CellID->468444828],
Cell[1799, 55, 204, 2, 30, "Categorization",ExpressionUUID->"cc53b83c-8f6c-4af2-876e-ab539c659edc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2040, 62, 110, 1, 29, "KeywordsSection",ExpressionUUID->"8c6f245e-eede-4e48-8f71-8638b3b761d5",
 CellID->477174294],
Cell[2153, 65, 99, 1, 70, "Keywords",ExpressionUUID->"e797b218-3584-46e4-b864-2c6ee48c1735",
 CellID->426091251]
}, Closed]],
Cell[CellGroupData[{
Cell[2289, 71, 120, 1, 19, "TemplatesSection",ExpressionUUID->"a294325e-96fd-42c5-8685-f97662c28359",
 CellID->1872225408],
Cell[2412, 74, 149, 2, 70, "Template",ExpressionUUID->"89a502e2-a6ff-4256-8980-014ff9cc0022",
 CellID->1562036412],
Cell[2564, 78, 137, 2, 70, "Template",ExpressionUUID->"bad2337b-e925-47c3-86d8-a4eefaef28d3",
 CellID->158391909],
Cell[2704, 82, 136, 2, 70, "Template",ExpressionUUID->"a88523cf-85de-43d5-ab2f-428b444ac4d7",
 CellID->1360575930],
Cell[2843, 86, 137, 2, 70, "Template",ExpressionUUID->"0c9f6117-161f-48f7-8b7f-5e3964f99411",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[3017, 93, 108, 1, 19, "DetailsSection",ExpressionUUID->"5e6c0cc0-1163-473b-8f9f-a4c0d9c019c2",
 CellID->307771771],
Cell[3128, 96, 118, 2, 70, "Details",ExpressionUUID->"e1eacb83-d28d-4c24-9b36-3d5912080b77",
 CellID->670882175],
Cell[3249, 100, 124, 2, 70, "Details",ExpressionUUID->"f59c76f5-fa1d-4d2c-9555-29cba96473bb",
 CellID->350963985],
Cell[3376, 104, 119, 2, 70, "Details",ExpressionUUID->"0d06f4e8-d9e4-48f3-9c13-bee8884fc0a1",
 CellID->8391405],
Cell[3498, 108, 124, 2, 70, "Details",ExpressionUUID->"88cd1a42-bc50-4739-b817-ab7397565315",
 CellID->3610269],
Cell[3625, 112, 116, 2, 70, "Details",ExpressionUUID->"6572d10a-f9e4-4a9c-a407-2dd5395696aa",
 CellID->401364205],
Cell[3744, 116, 116, 2, 70, "Details",ExpressionUUID->"9862b6fe-2dc0-424e-a3c0-ffdb7aa4c018",
 CellID->350204745],
Cell[3863, 120, 118, 2, 70, "Details",ExpressionUUID->"e18fe954-8f13-4bd6-83d9-9961c0c4a394",
 CellID->732958810],
Cell[3984, 124, 133, 2, 70, "Details",ExpressionUUID->"30b29f63-638c-42c3-a78e-05f6025d8606",
 CellID->222905350],
Cell[4120, 128, 122, 2, 70, "Details",ExpressionUUID->"62bd55c6-b2ac-46f2-9078-cf3f256019e1",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[4279, 135, 243, 3, 63, "ObjectName",ExpressionUUID->"4169ecd4-65be-425a-b071-3fdcbe7b7d4c",
 CellID->1224892054],
Cell[4525, 140, 8417, 238, 262, "Usage",ExpressionUUID->"bbb04a37-720c-4f60-b16d-db032e0c4d1f",
 CellID->982511436],
Cell[12945, 380, 384, 11, 25, "Notes",ExpressionUUID->"89339f0c-cdd1-4751-8fec-5693de71df95",
 CellID->1903591426],
Cell[13332, 393, 1014, 21, 41, "Notes",ExpressionUUID->"37964b99-1bb9-47fa-8ced-f1abded6cb9b",
 CellID->2017353377],
Cell[14349, 416, 746, 17, 41, "Notes",ExpressionUUID->"79fffc1e-be17-44c7-878c-b665e73f2a32",
 CellID->340270200],
Cell[15098, 435, 1431, 46, 45, "Notes",ExpressionUUID->"83c54740-6dda-4a2a-855a-9f75009e83e8",
 CellID->324789424],
Cell[16532, 483, 267, 3, 25, "Notes",ExpressionUUID->"cd0d0eff-a3af-434a-a222-5d7dff059e8a",
 CellID->1067943069],
Cell[16802, 488, 3782, 81, 137, "3ColumnTableMod",ExpressionUUID->"78983e6a-34e7-4fe2-a712-431b9b51cc22",
 CellID->810661952],
Cell[20587, 571, 1642, 37, 60, "Notes",ExpressionUUID->"bc3e2fc1-e150-4071-8479-183665642444",
 CellID->740329325],
Cell[22232, 610, 1662, 39, 77, "Notes",ExpressionUUID->"0c20d858-fabe-409d-8563-97b5835d83e0",
 CellID->364661957],
Cell[23897, 651, 443, 9, 41, "Notes",ExpressionUUID->"8a5990bb-009b-49ba-8cab-e467b6000f80",
 CellID->1058480247]
}, Open  ]],
Cell[CellGroupData[{
Cell[24377, 665, 112, 1, 44, "TutorialsSection",ExpressionUUID->"26f6ae8a-d32c-438c-9fb0-d09c923cea2e",
 CellID->250839057],
Cell[24492, 668, 312, 5, 16, "Tutorials",ExpressionUUID->"490eaabe-5a79-4d37-b136-36c0cd778105",
 CellID->341631938],
Cell[24807, 675, 383, 6, 16, "Tutorials",ExpressionUUID->"0ac66758-a842-444d-879a-af98954e058f",
 CellID->212354435]
}, Open  ]],
Cell[CellGroupData[{
Cell[25227, 686, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"8c90e41e-cc47-4ec5-9e52-82505af920af",
 CellID->1268215905],
Cell[25368, 689, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"850b6ed0-3eba-44a1-95c2-0f104525121b",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[25518, 695, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"c08ccec0-349e-44a8-8cee-8f5f363bd27b",
 CellID->1584193535],
Cell[25641, 698, 466, 10, 16, "RelatedLinks",ExpressionUUID->"5a1b7ad9-16cb-4ede-8237-4ea7a0a53af5",
 CellID->1038487239],
Cell[26110, 710, 471, 10, 16, "RelatedLinks",ExpressionUUID->"2ce3807b-06f3-4f96-8000-509627c2581c",
 CellID->1569871728],
Cell[26584, 722, 537, 11, 29, "RelatedLinks",ExpressionUUID->"2dd2a000-39e1-4a12-9d54-3275f10dc72a",
 CellID->992471493],
Cell[27124, 735, 521, 11, 16, "RelatedLinks",ExpressionUUID->"20e7aaf6-4122-4357-900b-669566c09a6d",
 CellID->1725121766]
}, Open  ]],
Cell[CellGroupData[{
Cell[27682, 751, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"ef3ca175-34a2-4cac-9d25-3e3a0ac1d294",
 CellID->1255426704],
Cell[27795, 754, 1508, 35, 38, "SeeAlso",ExpressionUUID->"674e12a3-2aa2-4e89-98df-4d659f1c92b6",
 CellID->139355270]
}, Open  ]],
Cell[CellGroupData[{
Cell[29340, 794, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"61d82d86-3bb6-4bfd-96be-6a1b1b83a3d1",
 CellID->38303248],
Cell[29455, 797, 101, 1, 16, "MoreAbout",ExpressionUUID->"7967df3e-bee2-43e8-ba24-1c46080e208a",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[29593, 803, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"0ee15133-fd64-4d26-8a01-8f710ce84e32",
 CellID->880084151],
Cell[CellGroupData[{
Cell[30029, 818, 387, 9, 29, "Input",ExpressionUUID->"a65693d2-e644-44d5-8151-80ab25294b31",
 CellID->857180594],
Cell[30419, 829, 405, 8, 28, "Output",ExpressionUUID->"aa0abf89-9beb-432f-9271-7bd77f91e215",
 CellID->1565544083]
}, Open  ]],
Cell[CellGroupData[{
Cell[30861, 842, 397, 9, 29, "Input",ExpressionUUID->"b3235671-6069-4864-a80f-9633841286fa",
 CellID->1408035823],
Cell[31261, 853, 590, 12, 28, "Output",ExpressionUUID->"56b7365e-920d-445d-8822-d7915690d4db",
 CellID->1129759937]
}, Open  ]],
Cell[CellGroupData[{
Cell[31888, 870, 571, 11, 27, "Input",ExpressionUUID->"040e67ce-e97f-45a4-a389-3d972eded8c1",
 CellID->669844248],
Cell[32462, 883, 1336, 23, 28, "Output",ExpressionUUID->"8e563538-b7e5-4467-be3f-5818dc3f74dc",
 CellID->1972338032]
}, Open  ]],
Cell[CellGroupData[{
Cell[33835, 911, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"152217ef-5e2b-4ae4-be7e-0f06ce46cfd6",
 CellID->2048314361],
Cell[34081, 918, 263, 3, 22, "ExampleText",ExpressionUUID->"7110b895-73e7-4822-bc0a-74f18b47ecbb",
 CellID->1618279297],
Cell[CellGroupData[{
Cell[34369, 925, 587, 12, 29, "Input",ExpressionUUID->"fc250507-aa8d-4c6c-a9f6-63bd1b9a838d",
 CellID->1184916144],
Cell[34959, 939, 856, 17, 28, "Output",ExpressionUUID->"52924ed4-b3a8-40c5-b4d0-c08f1b681ced",
 CellID->1361372055]
}, Open  ]],
Cell[CellGroupData[{
Cell[35852, 961, 229, 4, 26, "Input",ExpressionUUID->"57fa04c0-7451-4b8c-adb3-00badaf0e2be",
 CellID->318823930],
Cell[36084, 967, 521, 8, 25, "Output",ExpressionUUID->"9fe8af80-96f3-4127-bbeb-409fd7f172c6",
 CellID->527399425]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36654, 981, 243, 5, 17, "ExampleDelimiter",ExpressionUUID->"593dacbb-399d-440a-bbe9-d7c0e5ee9b3f",
 CellID->2111897289],
Cell[36900, 988, 191, 2, 22, "ExampleText",ExpressionUUID->"11272bf1-009a-430c-a1e6-15eceb59e1d7",
 CellID->1048018607],
Cell[CellGroupData[{
Cell[37116, 994, 472, 9, 27, "Input",ExpressionUUID->"52275981-2132-4cac-8e0b-3c5103335410",
 CellID->2060148113],
Cell[37591, 1005, 503, 9, 28, "Output",ExpressionUUID->"fb8e9bed-5d00-4ded-9c7d-61aae26657e6",
 CellID->952967132]
}, Open  ]],
Cell[CellGroupData[{
Cell[38131, 1019, 371, 8, 27, "Input",ExpressionUUID->"d9659cdd-9ce4-4b0e-86a6-61e0bfdd389b",
 CellID->1111737530],
Cell[38505, 1029, 433, 9, 28, "Output",ExpressionUUID->"f9283a7a-1c53-4569-ad00-462f78a52632",
 CellID->585548198]
}, Open  ]],
Cell[CellGroupData[{
Cell[38975, 1043, 638, 14, 46, "Input",ExpressionUUID->"826169ae-ffaf-442d-9001-1bce92986097",
 CellID->67297215],
Cell[39616, 1059, 1445, 38, 68, "Output",ExpressionUUID->"0cb98e04-bdd7-461a-9ec1-23f16cbff5b8",
 CellID->1538493232]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[41122, 1104, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"bb412e21-89f2-4415-84fe-9b504c0126df",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[41302, 1110, 242, 5, 33, "ExampleSection",ExpressionUUID->"84489e02-c81f-4a1f-83fd-7cb528ccbd84",
 CellID->1293636265],
Cell[41547, 1117, 422, 10, 25, "ExampleText",ExpressionUUID->"a7e49533-e8c2-4db9-b91f-103115f939e1",
 CellID->1824505679],
Cell[CellGroupData[{
Cell[41994, 1131, 662, 15, 48, "Input",ExpressionUUID->"2d98287d-5991-48a1-a326-037b44cabf28",
 CellID->135239774],
Cell[42659, 1148, 1888, 43, 48, "Output",ExpressionUUID->"cc12facc-fd31-4995-979d-a88fb9172afe",
 CellID->674247580]
}, Open  ]],
Cell[CellGroupData[{
Cell[44584, 1196, 341, 6, 24, "ExampleSubsection",ExpressionUUID->"4831fc48-53ce-4c74-af3c-7350b7d6fd6d",
 CellID->1477309509],
Cell[44928, 1204, 877, 20, 41, "ExampleText",ExpressionUUID->"eae7d638-b74c-4f28-afe0-7ee5b453c6c0",
 CellID->1447093601],
Cell[45808, 1226, 574, 13, 69, "Input",ExpressionUUID->"2b638a01-4be0-4bdc-9bee-ab62f2164066",
 CellID->1075012041],
Cell[46385, 1241, 193, 2, 22, "ExampleText",ExpressionUUID->"79cbd605-7270-43ed-ae65-8736ea3eea48",
 CellID->1967251220],
Cell[CellGroupData[{
Cell[46603, 1247, 343, 7, 27, "Input",ExpressionUUID->"23a6558f-2622-43a1-90d6-ca5ca2ffc4eb",
 CellID->1552669442],
Cell[46949, 1256, 1115, 21, 67, "Output",ExpressionUUID->"4986d86d-c05c-49c6-a58b-85e48b3e2fec",
 CellID->1908415208]
}, Open  ]],
Cell[CellGroupData[{
Cell[48101, 1282, 391, 8, 27, "Input",ExpressionUUID->"25d56fc6-580c-40ab-b624-4386dbf8f4b9",
 CellID->1082421637],
Cell[48495, 1292, 1130, 23, 67, "Output",ExpressionUUID->"0aca405c-0e3c-4632-bb84-ad140eee4162",
 CellID->263585048]
}, Open  ]],
Cell[49640, 1318, 175, 2, 22, "ExampleText",ExpressionUUID->"1f193a81-2d6b-451e-94b5-405be3c65189",
 CellID->701644542],
Cell[49818, 1322, 140, 2, 26, "Input",ExpressionUUID->"9f8f54fa-1316-4f48-87a2-3b0f7919df36",
 CellID->1134817460]
}, Open  ]],
Cell[CellGroupData[{
Cell[49995, 1329, 380, 7, 24, "ExampleSubsection",ExpressionUUID->"38679cb0-d376-45e4-a8dd-3f64a6a38fcb",
 CellID->756126015],
Cell[50378, 1338, 1246, 29, 56, "ExampleText",ExpressionUUID->"d1a12821-0ca9-4f0f-a85a-fca7de50360c",
 CellID->1549194806],
Cell[51627, 1369, 686, 14, 87, "Input",ExpressionUUID->"7b6f0fad-0efe-4f75-9c7e-5b533d236e48",
 CellID->1225368214],
Cell[52316, 1385, 257, 5, 22, "ExampleText",ExpressionUUID->"6a3db041-2fa7-4996-b9da-30dbaf089336",
 CellID->1183617106],
Cell[CellGroupData[{
Cell[52598, 1394, 312, 6, 26, "Input",ExpressionUUID->"12ee59ed-74a2-45b6-a3b4-83a20018806a",
 CellID->437259480],
Cell[52913, 1402, 56244, 1027, 116, "Output",ExpressionUUID->"c4cd6935-72a8-41a8-b18c-788b533aa097",
 CellID->257340049]
}, Open  ]],
Cell[109172, 2432, 192, 2, 22, "ExampleText",ExpressionUUID->"fefff3f2-0dcc-4a36-b95c-a0c49efee8bd",
 CellID->395397968],
Cell[CellGroupData[{
Cell[109389, 2438, 536, 12, 27, "Input",ExpressionUUID->"ce6c759a-c4d7-469c-b85f-6a3f076da600",
 CellID->1139244358],
Cell[109928, 2452, 548, 10, 26, "Output",ExpressionUUID->"b1ddeab2-e967-4e8d-b653-1c0e122b637c",
 CellID->82138485]
}, Open  ]],
Cell[CellGroupData[{
Cell[110513, 2467, 582, 12, 27, "Input",ExpressionUUID->"a7a284e8-fe96-4f2c-9e4a-66575f1d322c",
 CellID->12673241],
Cell[111098, 2481, 526, 9, 26, "Output",ExpressionUUID->"48a19d60-2935-4d60-86bf-603b4c8a3f2f",
 CellID->1817016021]
}, Open  ]],
Cell[111639, 2493, 263, 3, 22, "ExampleText",ExpressionUUID->"73b115a0-734d-4e8b-8664-a43b80d91110",
 CellID->1256409161],
Cell[CellGroupData[{
Cell[111927, 2500, 437, 12, 27, "Input",ExpressionUUID->"7bc90e21-0c24-4ba6-b2bf-cf28568f3961",
 CellID->635291495],
Cell[112367, 2514, 17342, 303, 113, "Output",ExpressionUUID->"bfad22af-712b-4002-aefe-9739af124a3e",
 CellID->1370804607]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[129748, 2822, 265, 5, 33, "ExampleSection",ExpressionUUID->"3beb3f71-f35e-47b0-a579-dba44b1dd8ad",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[130038, 2831, 244, 5, 21, "ExampleSection",ExpressionUUID->"0a90f5bc-5a3e-438b-a28a-bd5c241327b9",
 CellID->2061341341],
Cell[CellGroupData[{
Cell[130307, 2840, 334, 6, 24, "ExampleSubsection",ExpressionUUID->"8e89291e-4a8e-47e3-8ac2-0fc0337e4473",
 CellID->1757724783],
Cell[130644, 2848, 617, 16, 24, "ExampleText",ExpressionUUID->"616eb3a0-6722-4649-bcd7-073fe269698c",
 CellID->5576810],
Cell[131264, 2866, 854, 21, 104, "Input",ExpressionUUID->"ae4753cb-9633-400f-9be7-baf4fa05960c",
 CellID->808044184]
}, Open  ]],
Cell[CellGroupData[{
Cell[132155, 2892, 372, 7, 24, "ExampleSubsection",ExpressionUUID->"604f3456-a85e-4246-926d-3c585744df1d",
 CellID->1270895210],
Cell[132530, 2901, 183, 2, 22, "ExampleText",ExpressionUUID->"b749da1f-47c4-4d52-b4f1-dfbd09074745",
 CellID->1057121796],
Cell[CellGroupData[{
Cell[132738, 2907, 716, 16, 104, "Input",ExpressionUUID->"dd77496f-34aa-4e0e-88cb-6de32f10b57d",
 CellID->288447783],
Cell[133457, 2925, 1027, 28, 126, "Output",ExpressionUUID->"1c78eed1-03b0-4af4-a642-84d6dd243ac8",
 CellID->17196657]
}, Open  ]],
Cell[134499, 2956, 227, 3, 22, "ExampleText",ExpressionUUID->"894cdc93-cbf8-432c-a602-74ade2484846",
 CellID->178665038],
Cell[CellGroupData[{
Cell[134751, 2963, 661, 14, 47, "Input",ExpressionUUID->"755d71cb-0243-4c2b-a2ca-13d45440a0b0",
 CellID->21449087],
Cell[135415, 2979, 3988, 91, 148, "Output",ExpressionUUID->"e2b6aba9-a599-436b-b7cd-21ebf74f0533",
 CellID->1261405501]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[139452, 3076, 422, 8, 24, "ExampleSubsection",ExpressionUUID->"d6c8bc51-fe7a-4179-ba50-1541c767ce21",
 CellID->446420701],
Cell[139877, 3086, 183, 2, 22, "ExampleText",ExpressionUUID->"a9abaf9c-8aa2-4117-8172-0ce283e48f4a",
 CellID->1832342736],
Cell[CellGroupData[{
Cell[140085, 3092, 859, 18, 104, "Input",ExpressionUUID->"a17b2be2-c194-4758-9f9b-f3492d8aa660",
 CellID->1268865972],
Cell[140947, 3112, 1072, 30, 160, "Output",ExpressionUUID->"f562d6d0-fb45-4656-8e6d-3fd6fa15ded6",
 CellID->1553536524]
}, Open  ]],
Cell[142034, 3145, 227, 3, 22, "ExampleText",ExpressionUUID->"d244ae65-ad4c-469d-bcae-81bb2b4e4627",
 CellID->874044547],
Cell[CellGroupData[{
Cell[142286, 3152, 672, 14, 47, "Input",ExpressionUUID->"b46b18c1-f1d8-42b2-977c-88652bba5ea4",
 CellID->1278555949],
Cell[142961, 3168, 4913, 111, 160, "Output",ExpressionUUID->"1459657c-30c6-4e08-85b2-183f5f6d1d5e",
 CellID->1182178642]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[147923, 3285, 376, 7, 24, "ExampleSubsection",ExpressionUUID->"2dc79940-aa7d-43a8-99fa-3b578cc9cf45",
 CellID->1295379749],
Cell[148302, 3294, 585, 10, 39, "ExampleText",ExpressionUUID->"1f1e2e56-dd07-4b01-b41d-a38cf598d9df",
 CellID->448984603],
Cell[CellGroupData[{
Cell[148912, 3308, 334, 7, 27, "Input",ExpressionUUID->"598acefa-0118-454a-9a6b-1bd76ef4308e",
 CellID->1266901336],
Cell[149249, 3317, 4812, 77, 293, "Output",ExpressionUUID->"653a6ecf-e7eb-475a-ae32-361aec821631",
 CellID->1001355690]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[154100, 3399, 248, 5, 33, "ExampleSection",ExpressionUUID->"65fffc6c-07c2-445c-93c0-e5f367f70e83",
 CellID->258228157],
Cell[154351, 3406, 259, 5, 21, "ExampleSection",ExpressionUUID->"329d48cb-72c0-4994-8a9b-10527fbc1a45",
 CellID->2123667759],
Cell[CellGroupData[{
Cell[154635, 3415, 252, 5, 21, "ExampleSection",ExpressionUUID->"3db12b31-d7b6-4ad4-8394-fc60861af2f6",
 CellID->1305812373],
Cell[CellGroupData[{
Cell[154912, 3424, 533, 10, 27, "Input",ExpressionUUID->"13199e42-8379-4a37-b753-758678c9cd21",
 CellID->571907541],
Cell[155448, 3436, 932, 16, 22, "Message",ExpressionUUID->"5bc4bd6e-4de0-4e0d-99a4-3f6b825d84df",
 CellID->1984012887],
Cell[156383, 3454, 346, 5, 26, "Output",ExpressionUUID->"808a4465-acb1-470c-93a6-d1b1ce905a87",
 CellID->1326004840]
}, Open  ]],
Cell[156744, 3462, 681, 15, 41, "ExampleText",ExpressionUUID->"f3bdac9c-18e3-4706-a097-ef7dd1e0cf25",
 CellID->1273977826],
Cell[CellGroupData[{
Cell[157450, 3481, 425, 9, 27, "Input",ExpressionUUID->"af43c745-7f7d-4ff1-8bb0-cbc580233afc",
 CellID->765477456],
Cell[157878, 3492, 430, 8, 28, "Output",ExpressionUUID->"1416c7d7-3876-405f-9941-ddf187a803f9",
 CellID->773896162]
}, Open  ]],
Cell[158323, 3503, 515, 9, 24, "ExampleText",ExpressionUUID->"0a50f43a-60db-4f62-a4e9-57d6d4b1888e",
 CellID->1973839192]
}, Open  ]],
Cell[CellGroupData[{
Cell[158875, 3517, 257, 5, 33, "ExampleSection",ExpressionUUID->"17eb1ffe-9c2e-4b7b-9b2a-7b6319d17aea",
 CellID->1653164318],
Cell[159135, 3524, 438, 8, 37, "ExampleText",ExpressionUUID->"8fa125df-c7c7-4394-8035-d2fb1001959e",
 CellID->676444527],
Cell[159576, 3534, 13865, 330, 2066, "Input",ExpressionUUID->"12237604-f873-48bd-aa9d-09c4ff793dc9",
 CellID->979539406]
}, Open  ]],
Cell[CellGroupData[{
Cell[173478, 3869, 419, 9, 33, "ExampleSection",ExpressionUUID->"07d36d1d-c06c-4f87-8f40-8647769062b3",
 CellID->372258994],
Cell[173900, 3880, 3746, 73, 378, "Input",ExpressionUUID->"671e67d4-0338-4393-9446-a6fd24118726",
 InitializationCell->False,
 CellID->1306231809],
Cell[177649, 3955, 6062, 129, 667, "Input",ExpressionUUID->"1f3b4a7b-7974-473e-8134-77cd1a52f8f6",
 InitializationCell->False,
 CellID->112690582],
Cell[183714, 4086, 46210, 911, 3971, "Input",ExpressionUUID->"af392140-ecdb-4f45-ac48-d41a6fe14edd",
 InitializationCell->False,
 CellID->2057518667]
}, Closed]]
}, Open  ]]
}
]
*)

